显示1-1个结果(共1个)。
第页1
a(1)=1;对于n>1,a(n)=a(n-1)*b(n-1。
+10 2
1, 2, 3, 7, 8, 25, 26, 183, 184, 369, 1477, 11817, 11818, 59091, 1477276, 1477277, 2954555, 38409216, 998639617, 998639618, 2995918855, 182751050156, 33443442178549, 33443442178550, 66886884357101, 267547537428405
例子
{a(k)}项的正除数列表是(序列A129646号) 1; 1,2; 1,3; 1,7; 1,2,4,8; .... {a(k)}的第n项是a(n-1)*A129646号(n-1)+1。
MAPLE公司
aklist:=[];
选项记忆;
全球aklist;
本地prev;
如果n=1,则
返回1;
其他的
前一个:=进程名(n-1);
排序([op(numtheory[除数](prev))]);
aklist:=[op(aklist),op(%)];
返回prev*op(n-1,aklist)+1;
结束条件:;
结束进程:
数学
aklist={};
a[n_]:=a[n]=如果[n==1,1,With[{prev=a[n-1]},aklist=Join[aklist,Divisors[prev]];上一个aklist[[n-1]]+1];
搜索在0.005秒内完成
|