OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
ssQ[n_]:=MemberQ[Partition[IntegerDigits[3^n], IntegerLength[n], 1], IntegerDigits[ n]]; Select[Range[500], ssQ] (* Harvey P. Dale, Jul 16 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved