1,2

I conjecture that 43 is the last term.

Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 1] &]

Cf. A007377.

Sequence in context: A039843 A045880 A014853 this_sequence A039840 A039845 A039848

Adjacent sequences: A131624 A131625 A131626 this_sequence A131628 A131629 A131630

base,fini,nonn

Shyam Sunder Gupta (guptass(AT)rediffmail.com), Sep 01 2007