A067500 Powers of 3 with digit sum also a power of 3.
1, 3, 9, 27, 81, 243, 19683, 59049, 177147, 1594323, 43046721, 129140163, 10460353203, 7625597484987, 617673396283947, 50031545098999707, 150094635296999121, 4052555153018976267
Offset: 1
Programs
-
Mathematica
With[{l3s=3^Range[0,200]},Select[l3s,MemberQ[l3s,Total[IntegerDigits[ #]]]&]] (* Harvey P. Dale, May 20 2011 *)
Extensions
More terms from Harvey P. Dale, Mar 02 2002
Offset corrected by Reinhard Zumkeller, May 14 2011
Comments