OFFSET
1,2
COMMENTS
"Positions" are counted 0,1,2,3,... starting with the least significant digit.
MATHEMATICA
best = 0; lst = {};
x = Select[Range[0, 10000],
If[(t = First@
First@StringPosition[StringReverse@("0" <> ToString@(2^#)),
"0"]) > best, best = t; AppendTo[lst, t - 1]; True] &] ; lst (* Robert Price, Oct 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Dan Hoey
a(42)-a(44) from Alan Griffiths, Jan 25 2012
a(45) from Alan Griffiths, Feb 01 2012
a(46) from Alan Griffiths, Mar 09 2012
STATUS
approved