显示找到的3个结果中的1-3个。
第页1
2, 4, 14, 17, 27, 1, 21, 62, 34, 86, 86, 47, 186, 94, 53, 212, 226, 148, 251, 696, 1484, 630, 1870, 563, 813, 188, 1222, 154, 960, 6654, 1980, 8872, 10027, 3628, 5724, 6330, 12059, 10418, 10169, 4192, 4868
数学
nn=2^14;c[_]:=错误;
数组[Set[{a[#],c[#]},{#,True}]&,2];u=s=a[1]+a[2];
差异@收割[Monitor[Do[k=SelectFirst[Divisions[s]!c[#]&];
c[k]=正确;s+=k;
如果[k==u,母猪[n];而[c[u],u++]],{n,3,nn}],n]][[-1,1]](*迈克尔·德弗利格2024年4月27日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(组)
a253444 n=a253444_list!!(n-1)
a253444_list=地图长度$组a253443_list
4, 5, 7, 11, 17, 34, 37, 43, 67, 73, 127, 141, 157, 173, 227, 283, 347, 359, 401, 409, 607, 857, 1091, 1303, 1823, 1907, 2281, 2437, 2441, 2609, 2969, 3851, 4211, 4691, 6907, 7537, 8429, 10301, 11953, 14081, 14557
数学
nn=2^14;c[_]:=错误;
数组[Set[{a[#],c[#]},{#,True}]&,2];u=s=a[1]+a[2];
Rest@Reap[Monitor[Do[k=SelectFirst[Divisors[s]!c[#]&];
c[k]=正确;s+=k;
如果[k==u,母猪[u];而[c[u],u++]],{n,3,nn}],n]][[-1,1]](*迈克尔·德弗利格2024年4月27日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(组)
a253584 n=a253584_列表!!(n-1)
a253584_list=地图标题$组a253443_list
a(1)=1;对于n>1,a(n)是尚未出现的最小数,它是a(1)+…的除数或倍数+a(n-1)。
+10 22
1, 2, 3, 6, 4, 8, 12, 9, 5, 10, 15, 25, 20, 24, 16, 32, 48, 30, 18, 36, 27, 13, 7, 53, 106, 265, 159, 318, 212, 14, 107, 321, 214, 428, 642, 535, 35, 21, 181, 11, 33, 22, 23, 59, 70, 28, 151, 29, 19, 233, 466, 2563, 699, 932, 40, 26, 38, 31, 61, 39, 49, 98, 42
评论
推测是自然数的重新排列。
对于n>2,a(n)<=a(1)++a(n-1)。证明:a(1)++a(n-1)>=最大值{a(i),i=1..n-1},因此a(1)++a(n-1)总是a(n)的候选者。量化宽松政策。因此定义可以改为:a(1)=1,a(2)=2;对于n>2,a(n)是尚未出现的最小数,它是a(1)+…的除数+a(n-1)-N.J.A.斯隆2005年11月5日
链接
Richard J.Mathar和Reinhard Zumkeller,n,a(n)表,n=1.10000(理查德·马塔尔(Richard J.Mathar)的前789个术语)
迈克尔·德弗利格,a(n)的对数散点图,n=1..2^16,用红色表示素数,用金色表示素数的完美幂,用绿色表示无平方合成,用蓝色表示其他数字。
例子
.| s(n)的除数,
.|出现在(1..n)中时放在括号中
. ---+------+------+---------------------------------------------------
. 1 | 1 | 1 | (1)
. 2 | 2 | 3 | (1) 3
. 3 | 3 | 6 | (1 2 3) 6
. 4 | 6 | 12 | (1 2 3) 4 (6) 12
. 5 | 4 | 16 | (1 2 4) 8 16
. 6 | 8 | 24 | (1 2 3 4 6 8) 12 24
. 7 | 12 | 36 | (1 2 3 4 6) 9 (12) 18 36
. 8 | 9 | 45 | (1 3) 5 (9) 15 45
. 9 | 5 | 50 | (1 2 5) 10 25 50
. 10 | 10 | 60 | (1 2 3 4 5 6 10 12) 15 20 30 60
. 11 | 15 | 75 | (1 3 5 15) 25 75
. 12 | 25 | 100 | (1 2 4 5 10) 20 (25) 50 100
. 13 | 20 | 120 | (1 2 3 4 5 6 8 10 12 15 20) 24 30 40 60 120
. 14 | 24 | 144 | (1 2 3 4 6 8 9 12) 16 18 (24) 36 48 72 144
. 15 | 16 | 160 | (1 2 4 5 8 10 16 20) 32 40 80 160
. 16 | 32 | 192 | (1 2 3 4 6 8 12 16 24 32) 48 64 96 192
. 17 | 48 | 240 | (.. 8 10 12 15 16 20 24) 30 40 (48) 60 80 120 240
. 18 | 30 | 270 | (1 2 3 5 6 9 10 15) 18 27 (30) 45 54 90 135 270
. 19 | 18 | 288 | (.. 6 8 9 12 16 18 24 32) 36 (48) 72 96 144 288
. 20 | 36 | 324 | (1 2 3 4 6 9 12 18) 27 (36) 54 81 108 162 324
. 21 | 27 | 351 | (1 3 9) 13 (27) 39 117 351
. 22 | 13 | 364 | (1 2 4) 7 (13) 14 26 28 52 91 182 364
. 23 | 7 | 371 | (1 7) 53 371
. 24 | 53 | 424 | (1 2 4 8 53) 106 212 424
. 25 | 106 | 530 | (1 2 5 10 53 106) 265 530 .
MAPLE公司
M: =2000;a: =数组(1..M):a[1]:=1:a[2]:=2:as:=转换(a,集):b:=3:对于n从3到M,做t2:=除数(b)减as;t4:=排序(转换(t2,列表))[1];a[n]:=t4;b: =b+t4;as:={op(as),t4};od:aa:=[seq(a[n],n=1..M)]:
数学
a[1]=1;a[2]=2;a[n_]:=a[n]=块[{t=表[a[i],{i,n-1}]},s=Plus@@t;d=除数[s];l=补体[d,t];如果[l!={},k=First[l],k=s;而[位置[t,k]=={},k+=s];k] ];表[a[n],{n,40}](*罗伯特·威尔逊v2005年8月12日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(插入)
a109890 n=a109890_列表!!(n-1)
a109890_list=1:2:3:f(4,[])6其中
f(m,ys)z=g$dropWhile(<m)$a027750_row'z,其中
g(d:ds)|元素d ys=g ds
|否则=d:f(ins[m,m+1..](插入d ys))(z+d)
ins(u:us)vs’@(v:vs)=如果u<v,则(u,vs’)else in us vs
(Python)
从sympy导入除数
对于范围(1,10**3)内的_:
对于除数中的i:
如果i>=y且i不在b中:
s+=i
b.添加(i)
而y在b中:
b.删除(y)
y+=1
搜索在0.007秒内完成
|