OFFSET
1,3
COMMENTS
No more terms <= 10^4. - Georg Fischer, Mar 12 2020
Next term > 2*10^5. - Tyler NeSmith, Jul 30 2021
MATHEMATICA
Join[{0}, Select[Range@10000, FreeQ[IntegerDigits[2^#], 3] &]] (* Vincenzo Librandi, May 07 2015 *)
PROG
(Magma) [n: n in [0..1000] | not 3 in Intseq(2^n) ]; // Vincenzo Librandi, May 07 2015
(PARI) isok(n) = ! vecsearch(Set(digits(2^n)), 3); \\ Michel Marcus, Feb 09 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 15 1998
EXTENSIONS
Initial 0 added by Vincenzo Librandi, May 07 2015
Removed keyword "fini" as in A035064, since it is only a conjecture that this sequence contains only finitely many terms. - Georg Fischer, Mar 12 2020
STATUS
approved