|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
黄体脂酮素
|
(ARIBAS):函数b2revadd_steps(k,停止:整数);var c,n,m,步长,rev:整数;开始n:=0;c:=0;而c<停止do m:=n;转速:=b2反向(m);步长:=0;而步骤<k和m<>rev做m:=m+rev;转速:=b2反向(m);inc(步骤);结束;如果步骤=k且m=rev,则写入(n,“”);inc(c);结束;inc(n);结束;结束;b2revadd_步骤(1,66)。
(PARI)Rev(x)={local(d,r=0);while(x>0,d=x%10;x\=10;r=r*10+d);return(r)}digitsIn(x(x==0,返回(1);y=x;d=digitsIn(x);t=10^(d-1);对于(i=1,d\2,f=y-10*(y\10);y\=10;e=x\t;x-=t*e;t/=10;如果(e!=f,返回(0));return(1)}baseE(x,b)={local(d,e=0,f=1);while(x>0,d=x-b*(x\b);x\=b;e+=d*f;f*=10);return baseE(m,2);r=版本(b);d=基础I(r,2)+m;b=基础e(d,2),如果(佩林(b),写(“b066122.txt”,n++,“”,m);如果(n==1000,返回))}\\哈里·史密斯2010年2月1日
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
OFFSET从0,1更改为1,1哈里·史密斯2010年2月1日
|
|
状态
|
经核准的
|