搜索: 编号:a252737
|
|
|
|
1, 2, 7, 28, 130, 702, 4384, 31516, 260068, 2445372, 25796360, 299286550, 3751803964, 50211590696, 712746859372, 10697637496288, 169490803535680, 2830925427778810, 49785906936838240, 921273098388684878, 17944637546960083042, 368472898102440537484, 7993616254370783660414, 183539682466936703629744
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
|
|
MAPLE公司
|
b: =proc(n,i)选项记忆`如果`(n=0,1,加上(b(n-`如果`(
i=0,j,1),j)*ithprime(j),j=1..`如果`(i=0、n、i))
结束时间:
a: =n->b(n,0):
|
|
数学
|
b[n_,i_]:=b[n,i]=如果[n==0,1,和[b[n-如果[i==0、j、1],j]*素数[j],{j,1,如果[i==0,n,i]}];
a[n]:=b[n,0];
|
|
黄体脂酮素
|
(PARI)
分配(234567890);
A003961号(n) =我的(f=系数(n));对于(i=1,#f~,f[i,1]=下一素数(f[i、1]+1));factorback(f);\\使用的代码米歇尔·马库斯
A252737打印(up_to_n)={my(s,i=0,n=0);对于(n=0,up_to_n,如果(0==n,s=1,如果(1==n、s=2;lev=矢量(1);lev[1]=2,oldlev=lev;lev=vector(2*长度(oldlev));s=0;对于(i=0、(2^(n-1))-1,lev[i+1]=if(i%2),A003961号(旧列夫[(i\2)+1]),2*旧列夫((i\ 2)+1);s+=lev[i+1));写入(“b252737.txt”,n,“”,s);};
A252737打印(23);\\术语a(0)。。用该程序计算了a(23)。
(方案,两个备选版本)
(定义(添加intfun lowlim uplim)(让sumloop((i lowlime)(res 0)))(cond((>i upli)res)(else(sumlool(+1 i)(+res(intfun i))))
(定义(COMPOSE.funlist)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.007秒内完成
|