显示找到的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];
差异@Reap[Monitor[Do[k=SelectFirst[Divisors[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日
链接
迈克尔·德弗利格,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.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月22日23:47 EDT。包含376140个序列。(在oeis4上运行。)
|