OFFSET
1,3
MATHEMATICA
Join[{0}, Select[Range@10000, FreeQ[IntegerDigits[2^#], 5] &]] (* Vincenzo Librandi, May 07 2015 *)
Select[Range[0, 80], DigitCount[2^#, 10, 5]==0&] (* Harvey P. Dale, Dec 24 2018 *)
PROG
(Magma) [n: n in [0..1000] | not 5 in Intseq(2^n) ]; // Vincenzo Librandi, May 07 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
Initial 0 inserted by Vincenzo Librandi, May 07 2015
STATUS
approved