|
抵消
|
0,2
|
|
链接
|
|
|
数学
|
a={};Do[k=0;While[Count[Integer Digits[4^k],0]!=n、 k++];a=附加[a,k],{n,0,50}];一
模块[{nn=750,p4},p4=表[{n,数字计数[4^n,10,0]},{n,nn}];Transpose[Table[SelectFirst[p4,#[2]]==i&],{i,0,50}][[1]](*程序使用Mathematica版本10*中的SelectFirst函数)(*哈维·P·戴尔,2016年5月20日*)
|
|
黄体脂酮素
|
(PARI)计数(x,d)={本地(c,f);c=0;while(x>9,f=x-10*(x\10);if(f==d,c++);x\=10);如果(x==d,c++);返回(c)}{for(n=0,150,a=0;while(计数(4^a,0)!=n,a++);写入(“b063575.txt”,n,“”,a)}\\哈里·J·史密斯2009年8月26日
(PARI)A063575号(n) =for(k=n,oo,#select(d->!d,数字(4^k))==n&&return(k))\\M.F.哈斯勒,2018年6月14日
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|