OFFSET
1,3
COMMENTS
I conjecture that 59 is the last term.
MATHEMATICA
Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 2] &]
PROG
(Magma) [n: n in [0..1000] | not 2 in Intseq(3^n)]; // Vincenzo Librandi, May 06 2015
(PARI) isok(n) = ! vecsearch(Set(digits(3^n)), 2); \\ Michel Marcus, Feb 09 2018
CROSSREFS
KEYWORD
base,fini,nonn,more
AUTHOR
Shyam Sunder Gupta, Sep 01 2007
EXTENSIONS
Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015
STATUS
approved