|
|
抵消
|
0.2个
|
|
|
评论
|
只有数字2^m-1出现多次。
|
|
|
链接
|
|
|
|
公式
|
|
|
|
数学
|
a[n_]：=a[n]=（ClearAll[f]；f[i_，x_，y_，z_]：=f[i，x，y，z]=如果[i==n，如果[x==1，a[n-z]+2，a[n-z]]，如果[x==1，如果[y==1、f[i+1，2z，z，2z]，f[i+1，z，y-1，z]]、f[i+1，x-1，y，z]]；如果[n==0，1，f[1，1，1，1]]）；表[a[n]，｛n，0，98｝](*Jean-François Alcover公司，2011年12月14日，之后莱因哈德·祖姆凯勒*)
|
|
|
黄体脂酮素
|
（PolyML）
让f（i，x，y，z）有趣=
如果i=n
那么如果x=1
否则，如果x=1
则如果y=1
则f（i+1，2*z，z，2*z）
否则f（i+1，z，y-1，z）
else f（i+1，x-1，y，z）
如果n=0，则为in
然后是1
其他f（1，1，1，1）
结束；
（岩浆）S:=[0:n in[1..100]]；k： =1；p： =位置（S，0，1）；当p gt 0 do for j in[p..#S by k+1]do if S[j]eq 0 then S[j]：=k时，则为p gt 0；否则断裂；结束条件：；结束；f： =p；p： =位置（S，0，f）；k+：=2；结束while；S//克劳斯·布罗克豪斯2010年10月25日
（哈斯克尔）
导入数据。列表（插入，组）
a056753 n=a056753_列表！！n个
a056753_list=[1]++几率[]其中
赔率xs=xs++（插入xs'$group[y+2，y+4..2*y+1]）++赔率xs'
其中y=2*长度xs+1
xs'=xs++[y]++xs
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
克劳德·莱诺蒙德（Claude.Lenormand（AT）free.fr），2001年1月19日
|
|
|
状态
|
经核准的
|
