OFFSET
1,1
COMMENTS
"Positions" are counted 0,1,2,3,... starting with the least significant digit.
LINKS
Eric Weisstein's World of Mathematics, Zero.
MATHEMATICA
best = 0;
x = Select[Range[10000],
If[(t = First@
First@StringPosition[StringReverse@ToString@(2^#), "0"]) >
best, best = t; True] &] ;
First /@ First /@
StringPosition[StringReverse[ToString /@ (2^x)],
"0"] - 1 (* Robert Price, Oct 11 2019 *)
PROG
(PARI) m=0; for(k=0, oo, d=digits(2^k); for(j=0, #d-1, d[#d-j]||(j>m&&print1(m=j, ", ")||break))) \\ M. F. Hasler, Jun 21 2018
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
EXTENSIONS
More terms from Dan Hoey
STATUS
approved