1,2

I conjecture that 100 is the last term.

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

Cf. A007377.

Sequence in context: A028734 A028755 A095976 this_sequence A138390 A047448 A029921

Adjacent sequences: A131611 A131612 A131613 this_sequence A131615 A131616 A131617

base,fini,nonn

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