%I#8 2024年2月25日11:01:21
%S 1,2,6,14,26,35,39,37,58,46,66103,73,93126124,88107105173150,
%电话146214194193168170229232210275248313332276300303317,
%电话:263314306398376422416444421394410449453
%N最小的k,使得8^k的十进制表示形式正好是N 4。
%t a={};Do[k=1;While[Count[Integer Digits[8^k],4]!=n、 k++];a=附加[a,k],{n,0,50}];一
%t模块[{nn=500,tbl},tbl=Table[{k,DigitCount[8^k,10,4]},{k,nn}];表[SelectFirst[tbl,#[2]]==n&],{n,0,50}][[;;,1]](*_哈维P.戴尔,2024年2月25日*)
%K基,nonn
%0、2
%A _Robert G.Wilson v_,2001年8月10日
%E姓名由Jon E.Schoenfield_2018年6月26日更正