显示找到的33个结果中的1-10个。
2, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1
黄体脂酮素
(哈斯克尔)
导入数据。列表(组)
a258383 n=a258383_列表!!(n-1)
a258383_list=映射长度$group a062234_list
1, 3, 5, 7, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77
例子
电话:|1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
.A062234号| 1 1 3 3 9 9 15 15 17 27 25 33 39 39 41
. --------+-----+-----+-----+-------+----+----+----+----+-------+----+-
.A258383型| 2 | 2 | 2 | 2 | 1 | 1 | 1 | 1 | 2 | 1 |
.A258432型| 1 | 3 | 5 | 7 | 9 | 10 | 11 | 12 | 13 | 15 |
.运行#|1|2|3|4|5|6|7|8|9|10|
黄体脂酮素
(哈斯克尔)
导入数据。列表(groupBy);导入数据。功能(打开)
a258432 n=a258432_列表!!(n-1)
a258432_list=地图(snd.head)$
groupBy((==)`on`fst)$zip a062234_list[1..]
1, 3, 5, 7, 13, 26, 28, 43, 49, 64, 69, 78, 89, 93, 96, 116, 131, 134, 142, 148, 152, 155, 167, 182, 202, 206, 212, 225, 231, 234, 236, 238, 247, 253, 258, 281, 286, 302, 303, 311, 313, 330, 332, 333, 334, 336, 337, 356, 362, 384, 385, 390, 435, 438, 455, 458, 484, 492, 512, 516
评论
具有2*质(n)-质(n+1)=2*质(n+1)-质(n+2)或2*质(n)+质(n+2)=3*质(n+1)性质的数n。
MAPLE公司
素数:=选择(i素数,[2,(2*i+1$i=1..10^4)]):
间隙:=底漆[2..-1]-底漆[1..-2]:
G2:=间隙[2..-1]-2*间隙[1..-2]:
列表工具:-SearchAll(0,G2)#罗伯特·伊斯雷尔2015年5月22日
数学
选择[Range@600,2 Prime[#]-Prime[#+1]==2 Prime[#+1]-Prime[#+2]&](*迈克尔·德弗利格2015年5月11日*)
黄体脂酮素
(岩浆)[0..600]|2*NthPrime(n)-NthPrime//文森佐·利班迪2015年5月12日
(哈斯克尔)
a257762 n=a257762_list!!(n-1)
a257762_list=映射a258432$过滤器((==2)。a258383)[1..]
465460, 672832, 829363, 891802, 919088, 1703659, 2656715, 2669971, 3035410, 3223041, 3585960, 3608292, 3636024, 4047253, 4058989, 4232549, 4591286, 4785400, 4797700, 5054313, 5120280, 5599321, 5872369, 6089675, 6541163, 6963642, 7957852, 8234393, 9069087, 9082140, 9312431
例子
对于k=465460..465464,2*素数(k)-素数(k+1)=6824895。
黄体脂酮素
(哈斯克尔)
a257951 n=a257951_list!!(n-1)
a257951_list=映射a258432$过滤器((==5)。a258383)[1]
332, 878, 1999, 3949, 4524, 5953, 6576, 8676, 10068, 11840, 17107, 17208, 19034, 19525, 46771, 46828, 52767, 54567, 54927, 56879, 58695, 61748, 65926, 77168, 77676, 79722, 92775, 92823, 96099, 101607, 111007, 136141, 160095, 160418, 173404
黄体脂酮素
(PARI)d(k)=2*素数(k)-素数(k+1);
isok(n)=(d(n)==d(n+1\\米歇尔·马库斯2015年5月29日
(Perl)使用数学::Prime::Util::PrimeArray;tie my@prime,“数学::prime::Util::PrimeArray”;(1..1e6){my$dk=d($_)的子d{2*$prime[$_[0]-1]-$prime[0]};假设d($_+1)==$dk&&d($_2=$dk($_+3)==$dk}#达娜·雅各布森2015年5月31日
(Perl)使用理论“:all”;{my@prime;sub d{2*$prime[$_[0]-1]-$prime[0]]}子列表{my$n=shift;@prime=@{primes(nth_prime($n+5))};my@d=映射{d($_)}1..4;我的@列表;对于(1.$n){push@list,$_ if$d[0]==$d[1]&$d[0]==$d[2]&$d[0]==$d[3];@d=(@d[1..3],d($_+4))}@list;}}说加入“,”,列表(1e6)#达娜·雅各布森2015年5月31日
(哈斯克尔)
a257892 n=a257892_list!!(n-1)
a257892_list=映射a258432$过滤器((==4)。a258383)[1]
9, 1, 302, 332, 465460, 67928439
评论
曾用名:“最小数字mA258383型(m) =n“是不合适的。例如,对于a(1),最小的mA258383型(m) =1是5,然后我们必须将前5个术语2+2+2+1相加,得到9,如示例表所示(我也编辑了其第2和第3列名称)。
注意素数([302,332,465460])=[1997,2237,6824897],它是A090807号然后可以验证primepi(1356705137=A090807号(7) )=67928439和primepi(3637803390827=A090807号(8) )=130463972798是a(6)和a(7)的良好候选项。a(6)已通过程序确认。(结束)
例子
---+--------+----------------------+--------------------------
3 | 265 | 302 =A258449号(1) | [1995, 1995, 1995]
4 | 290 | 332 =A257892型(1) | [2235, 2235, 2235, 2235]
5 | 440676 | 465460 =A257951型(1) |[___ 5 x 6824895 ___]
黄体脂酮素
(哈斯克尔)
导入数据。列表(elemIndex);导入数据。也许(来自Just)
a258437=(+1)。来自Just。(`elemIndex`a258383_list)
lista(nn)={my(vp=素数(nn,n));my(v=向量(nn-1,k,2*vp[k]-vp[k+1]),last=v[1],nb=1,list=list());kill(vp);对于(n=2,nn-1,如果(v[n]=last,nb++,listput(list,nb);last=v[n];nb=1););Vec(list);}\\A258383型
查找(k,v)={my(i=1);while(v[i]!=k,i++);i;}
列表器(nn)={my(v=lista(nn,));对于(k=1,6,my(pos=find(k,v));打印1(总和(i=1,pos,v[i])-k+1,“,”);}
302, 336, 384, 805, 1016, 1043, 1963, 2201, 2364, 2398, 2495, 2506, 2528, 2574, 2683, 2734, 3208, 4267, 4561, 4659, 5234, 5415, 5525, 5620, 5759, 5903, 6044, 6258, 6543, 7737, 7928, 8019, 8039, 8115, 8521, 8717, 8833, 9056, 9165, 9379, 9730, 10302, 10495
黄体脂酮素
(哈斯克尔)
a258449 n=a258449_列表!!(n-1)
a258449_list=映射a258432$过滤器((==3)。a258383)[1]
9, 10, 11, 12, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 45, 46, 47, 48, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 66, 67, 68, 71, 72, 73, 74, 75, 76, 77, 80, 81, 82, 83, 84, 85, 86, 87, 88, 91
黄体脂酮素
(哈斯克尔)
a258469 n=a258469_列表!!(n-1)
a258469_list=映射a258432$过滤器((==1)。a258383)[1]
9, 9, 27, 25, 81, 125, 225, 225, 361, 441, 1089, 1089, 1225, 1225, 2025, 2025, 2601, 3249, 3249, 3375, 3721, 5041, 6859, 7569, 7921, 12321, 13689, 13689, 15129, 18225, 21609, 21609, 30625, 31329, 38809, 42025, 47961, 53361, 59049, 65025, 65025
例子
a(20)=2*素数(478)-素数(47)=2*3391-3407=3375=15^3。
MAPLE公司
带有(数字理论);egcd:=proc(n)局部L;五十: =映射(proc(z)z[2]结束,ifactors(n)[2]);igcd(op(L))end:PW:=[]:cnt:=0:对于z到1 do,对于j从1到50000 do x:=2*ithprime(j)-ithprime(j+1);如果egcd(x)>1,则cnt:=cnt+1;PW:=[op(PW),[cnt,j,x]]fiod;PW;映射(proc(z)z[3]end,PW);
数学
fn[n_]:=2*素数[n]-素数[n+1];选择[fn[Range[3,7000]],ResourceFunction[“PerfectPowerQ”][#]&](*詹姆斯·C·麦克马洪2024年4月27日*)
黄体脂酮素
(PARI)lista(pmax)={my(prev=2,k);forprime(p=3,pmax,k=2*prev-p;if(ispower(k),print1(k,“,”));prev=p);}\\阿米拉姆·埃尔达尔2024年8月2日
67928439, 266947136, 282959564, 290650720, 411522246, 412395369, 442605172, 469294445, 474377829, 484820862, 516574437, 540188314, 566750674, 611253120, 656844834, 717566734, 835153917, 930156158, 1195351247, 1463919418, 1524111225, 1684626377, 1744328226, 1785356368, 2025764074
搜索在0.063秒内完成
|