OFFSET
0,2
FORMULA
MATHEMATICA
Table[SelectFirst[{#, DigitCount[#, 10, 0]}&/@(2^Range[0, 2000]), #[[2]]==n&], {n, 0, 8}][[;; , 1]] (* Harvey P. Dale, Sep 10 2024 *)
PROG
(PARI) A031147(n)=for(k=n, oo, #select(d->!d, digits(2^k))==n&&return(2^k)) \\ M. F. Hasler, Jun 15 2018
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
EXTENSIONS
More terms from Erich Friedman
a(8) added by M. F. Hasler, Jun 16 2018
STATUS
approved