搜索: a067026-编号:a067027
|
|
|
|
0, 1, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 25, 2, 1, 6, 6, 19, 1, 13, 3, 3, 11, 29, 2, 1, 6, 3, 4, 2, 6, 4, 15, 6, 4, 20, 4, 1, 7, 16, 4, 7, 22, 3, 12, 13, 9, 35, 2, 3, 3, 52, 35, 3, 32, 15, 13, 10, 53, 56, 9, 16, 36, 5, 8, 5, 22, 3, 14, 2, 64, 37, 8, 22, 42, 11, 22, 22, 12, 11, 26, 1, 54, 187, 20, 9
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,9
|
|
链接
|
|
|
例子
|
P(2)/2-2^0=2是素数,所以a(2)=0;
P(10)/2-2^3=3234846607是素数,因此a(10)=3。
|
|
数学
|
nmax=2^8192;npd=1;n=2;npd=npd*素数[n];当[npd<nmax,tn=1;tt=2;cp=npd-tt;当[(cp>1)&&(!(PrimeQ[cp]))时,tn=tn+1;tt=tt*2;cp=npd-tt];如果[cp<2,打印[“*”],打印[tn]];n=n+1;npd=npd*素数[n]]
(*第二个节目:*)
k=1;a={};Do[k=k*素数[n];m=1;而[!PrimeQ[k-2^m],m++];打印[m];附加到[a,m],{n,2200}];一个(*阿图尔·贾辛斯基2008年4月21日*)
|
|
黄体脂酮素
|
(PARI)a(n)=my(t=prod(i=2,n,质数(i)),m);while(!i素数(t-2^m),m++);米\\查尔斯·格里特豪斯四世2015年4月28日
|
|
交叉参考
|
囊性纤维变性。A002110号,A005234号,A014545型,A018239号,A006794号,A057704美元,A057705号,A103153号,A067026号,A067027号,A139439号,A139440型,A139441号,A139442号,A139443号,A139444号,A139445号,A139446号,A139447号,A139448号,A139449号,A139450型,1949年1月51日,A139452号,A139453号,A139454号,A139455号,1949年,A139457号,A103514号.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 7, 18, 21, 70, 76, 323, 340, 556, 572, 3433, 5457, 5897, 10820
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
位置[#/2+4&/@FoldList[Times,Prime[Range[600]]],_?(PrimeQ[#]&)]//Flatten(*程序生成序列的前13项。要生成更多项,请增加Range常量,但程序可能需要很长时间才能运行。*)(*哈维·P·戴尔2021年3月20日*)
|
|
黄体脂酮素
|
(PARI)n=0;t=1/2;对于素数(p=2,1e9,n++;t*=p;如果(假时间(t+4),打印1(n“,”))\\查尔斯·格里特豪斯四世2015年4月28日
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
a(1)=1插入,a(12)-a(13)来自雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
A139457号
|
| a(n)=最小的m,使得primorial(n)/2+2^m是素数。 |
|
+10 24
|
|
|
0, 1, 1, 1, 3, 1, 2, 4, 3, 1, 1, 1, 4, 10, 1, 11, 1, 2, 11, 14, 2, 8, 7, 3, 4, 4, 26, 21, 1, 4, 15, 10, 8, 4, 16, 29, 10, 3, 51, 17, 5, 12, 12, 48, 13, 45, 12, 1, 20, 17, 65, 12, 8, 95, 5, 12, 11, 8, 110, 38, 28, 8, 1, 23, 13, 5, 7, 11, 21, 2, 20, 32, 9, 66, 4, 2, 1, 20, 34, 97, 28, 80
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
链接
|
|
|
数学
|
k=1/2;a={};Do[k=k*素数[n];m=0;而[!PrimeQ[k+2^m],m++];打印[m];附加到[a,m],{n,100}];一
|
|
黄体脂酮素
|
(PARI)a(n)=my(t=prod(i=2,n,质数(i)),m);while(!i素数(t+2^m),m++);米\\查尔斯·格里特豪斯四世2015年4月28日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(1)=0插入,程序由雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
1949年1月
|
| 数n,使primorial(n)/2+8是质数。 |
|
+10 6
|
|
|
2, 3, 4, 5, 9, 11, 12, 18, 24, 29, 38, 76, 146, 152, 187, 200, 404, 442, 504, 950, 2796, 5133, 5683, 11334, 13775, 20539, 21253
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1/2;a={};Do[k=k*素数[n];如果[PrimeQ[k+8],打印[n];附加到[a,n]],{n,404}];一
(*第二个节目*)
选择[Range[10^3],PrimeQ[(Times@@Prime@Range@#)/2+8]&](*迈克尔·德弗利格,2017年1月1日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(18)-a(21)来自雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 4, 5, 7, 12, 15, 26, 31, 50, 71, 186, 273, 366, 1542, 1929, 3687, 4407, 15395, 15433
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1;a={};Do[k=k*素数[n];如果[PrimeQ[k-4],打印[n];附加到[a,n]],{n,2366}];一
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(14)-a(15)来自雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 4, 7, 9, 10, 11, 13, 15, 22, 23, 29, 45, 51, 52, 55, 69, 98, 122, 157, 268, 367, 476, 481, 1670, 1964, 2736, 4696, 7933, 22245
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1;a={};Do[k=k*素数[n];如果[PrimeQ[k-8]&&k>8,打印[n];附加到[a,n]],{n,2481}];一
|
|
黄体脂酮素
|
(PARI)是(n)=假时间(prod(i=2,n,质数(i))-8)\\查尔斯·格里特豪斯四世2013年6月13日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(26)-a(27)来自雷·钱德勒,2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1、2、3、5、6、8、13、25、26、30、34、63、75、138、149、672、752、1067、1256、1370、3357、4120、6672、7201、7469、8738、9426、11608
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1/2;a={};Do[k=k*素数[n];如果[PrimeQ[k+16],打印[n];附加到[a,n]],{n,752}];一
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(1)=1插入并纠正程序,a(18)-a(20)来自雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
4, 7, 9, 13, 22, 26, 30, 33, 36, 38, 42, 114, 125, 126, 181, 291, 296, 386, 1415, 2573, 3727, 5574, 7523, 8682, 9765
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1;a={};Do[k=k*素数[n];如果[PrimeQ[k-16]&&k>16,打印[n];附加到[a,n]],{n,2752}];一
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
删除2并更正程序a(16)-a(20)雷·钱德勒,2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 4, 5, 10, 11, 13, 41, 55, 66, 94, 104, 325, 363, 424, 672, 734, 818, 1044, 1389, 1595, 1728, 2870, 3149, 3922, 5352, 9431, 11586, 13991, 17507
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1/2;a={};Do[k=k*素数[n];如果[PrimeQ[k+32],打印[n];附加到[a,n]],{n,325}];一
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
a(13)-a(22)来自雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
|
|
A139446号
|
| 数n,使得primorial(n)/2-32是素数。 |
|
+10 5
|
|
|
4, 5, 6, 8, 10, 12, 23, 38, 50, 65, 67, 95, 100, 108, 114, 281, 835, 894, 1103, 3442, 6629
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
k=1;a={};Do[k=k*素数[n];如果[PrimeQ[k-32]&&k>32,打印[n];附加到[a,n]],{n,2325}];一
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
从中删除2,3和正确的程序a(17)-a(19)雷·钱德勒2013年6月16日
|
|
状态
|
经核准的
|
|
|
搜索在0.020秒内完成
|