OFFSET
1,3
COMMENTS
It is conjectured that 71 is the last term.
MATHEMATICA
Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[2^# ], 7] &]] (* Shyam Sunder Gupta, Sep 01 2007 *)
PROG
(Magma) [n: n in [0..1000] | not 7 in Intseq(2^n) ]; // Vincenzo Librandi, May 06 2015
(PARI) is(n)=!#select(k->k==7, Set(digits(2^n))) \\ Charles R Greathouse IV, May 06 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
Edited by N. J. A. Sloane, May 21 2008 at the suggestion of R. J. Mathar
Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015
STATUS
approved