A178102-OEIS公司

A178102号

2^（第n个半素数的素因子之间的绝对差）mod（第n-个半素）。

1, 2, 1, 8, 4, 4, 16, 6, 1, 20, 25, 26, 4, 10, 10, 12, 1, 13, 9, 43, 44, 16, 61, 52, 56, 16, 62, 16, 22, 22, 64, 70, 24, 44, 80, 28, 59, 30, 72, 1, 92, 31, 97, 106, 34, 106, 36, 4, 136, 110, 64, 40, 40, 9, 42, 1, 133, 134, 46, 81, 64, 146, 151, 152, 121

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1, 2

发件人罗伯特·伊斯雷尔，2020年4月5日：（开始）

如果A001358号（n） =2*p，如果p==3（mod 4），则a（n）=（p+1）/2，如果p==1（mod 3），则为（3*p+1）/2。

如果A001358号（n）当p>3时=3*p，如果p==1（mod 4），则a（n）=（3*p+1）/4；如果p==3（mod4），那么a（n。（结束）

链接

罗伯特·伊斯雷尔，n，a（n）表，n=1.10000

例子

a（1）=1，因为第一个半素数是4=2*2和2^（2-2）mod4=1。

a（11）=25，因为第11个半素数是33=3*11和2^（11-3）mod33=25。

MAPLE公司

b： =proc（n）选项记忆；

局部k；

如果n=1，则为4

b（n-1）+1中k的else，而

isprime（k）或add（i[2]，i=ifactors（k）[2]）<>2

做od；k个

fi（菲涅耳）

结束：

a： =程序（n）

局部l；

l： =系数（b（n））[2]；

如果nops（l）=1，则为1

else 2&^abs（l[1][1]-l[2][1]）mod b（n）

fi（菲涅耳）

结束：

seq（a（n），n=1..65）；

数学

Mod[2^Differences[FactorInteger[#][[All，1]]]，#]&/@Select[Range[300]，PrimeOmega[#]==2&]/。｛｝->1//压扁(*哈维·P·戴尔，2018年12月25日*）

交叉参考

囊性纤维变性。A000079号,A001358号.

上下文中的序列：A308695型 A278111型 A223550型*245836英镑 A368386型 A135520号

相邻序列：A178099号 A178100型 A178101号*A178103号 A178104型 A178105型

关键词

非n,看

作者

尤里·斯蒂潘·杰拉西莫夫2010年12月16日

扩展

编辑人阿洛伊斯·海因茨2010年12月17日

状态

经核准的