显示找到的2个结果中的1-2个。
第页1
1, 2, 4, 4, 5, 7, 7, 11, 9, 11, 11, 13, 13, 15, 15, 17, 17, 19, 19, 21, 21, 23, 23, 25, 25, 27, 27, 29, 29, 31, 31, 33, 33, 35, 35, 37, 37, 39, 39, 41, 41, 43, 43, 45, 45, 47, 47, 49, 49, 51, 51, 53, 53, 55, 55, 57, 57, 59, 59, 61, 61, 63, 63, 65, 65, 67, 67, 69, 69, 71, 71, 73
MAPLE公司
A118000个:=proc(nmax)局部a,n;a:=[0];而nops(a)<nmax do n:=nops(a);而gcd(n,op(-1,a))<>1做n:=n+1;od;a:=[op(a),op(-1,a)+n];od;返回(a);结束时间:11800个:=A118000个(100):对于从1到nops的n(11800个)-1执行printf(“%d,”,op(n+1,11800个)-op(n,11800个)) ; od#R.J.马塔尔2007年6月6日
a(0)=0。a(n)=a(n-1)+(最大整数<=n,与a(n-1)互素)。
+10 三
0, 1, 3, 5, 9, 14, 19, 26, 33, 41, 51, 62, 73, 86, 99, 113, 129, 146, 163, 182, 201, 221, 243, 266, 289, 314, 339, 365, 393, 422, 451, 482, 513, 545, 579, 614, 649, 686, 723, 761, 801, 842, 883, 926, 969, 1013, 1059, 1106, 1153, 1202, 1251, 1301, 1353, 1406
例子
a(7)=26。8不是26的互质。与26互素的最小整数<=8是7,因此a(8)=a(7)+7=33。
MAPLE公司
A118002号:=proc(nmax)局部a,n;a:=[0];而nops(a)<nmax do n:=nops(a);而gcd(n,op(-1,a))<>1做n:=n-1;od;a:=[op(a),op(-1,a)+n];od;返回(a);结束时间:A118002号(100) ; #R.J.马塔尔2007年6月6日
数学
折叠列表[Block[{k=0},While[!CoprimeQ[#1,#2-k],k++]#1+#2-k]&,0,范围@53](*迈克尔·德弗利格2017年9月30日*)
nxt[{n_,a_}]:={n+1,a+SelectFirst[Range[n,1,-1],互质Q[#,a]&]};联接[{0,1},NestList[nxt,{3,3},60][[All,2]]](*哈维·P·戴尔,2019年1月21日*)
搜索在0.007秒内完成
|