OFFSET
1,1
MATHEMATICA
sub2[n_] := Block[{s = ToString[2^n], k = n - 1}, While[k >= 0 && ! StringContainsQ[s, ToString[2^k]], k--]; k]; Select[Range[1677], sub2[#] == 10 &] (* Giovanni Resta, Oct 14 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved