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