OFFSET
1,2
COMMENTS
a(n) = 3^A118872(n).
MATHEMATICA
With[{l3s=3^Range[0, 200]}, Select[l3s, MemberQ[l3s, Total[IntegerDigits[ #]]]&]] (* Harvey P. Dale, May 20 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 11 2002
EXTENSIONS
More terms from Harvey P. Dale, Mar 02 2002
Offset corrected by Reinhard Zumkeller, May 14 2011
STATUS
approved