A066002 Sum of digits of 6^n.
1, 6, 9, 9, 18, 27, 27, 36, 36, 36, 36, 45, 45, 36, 54, 63, 54, 72, 72, 63, 72, 81, 63, 72, 90, 90, 99, 99, 90, 135, 117, 99, 126, 126, 135, 135, 126, 135, 135, 162, 171, 126, 153, 153, 153, 162, 180, 162, 153, 162, 171, 216, 171, 216, 171, 162
Offset: 0
Links
- Harry J. Smith, Table of n, a(n) for n = 0..1000
Crossrefs
Programs
-
Mathematica
Table[Total[IntegerDigits[6^n]], {n, 0, 60}] (* Vincenzo Librandi, Oct 08 2013 *)
-
PARI
a(n) = sumdigits(6^n); \\ Michel Marcus, Nov 01 2013