login
A066002
Sum of digits of 6^n.
20
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,2
LINKS
FORMULA
a(n) = A007953(A000400(n)). - Michel Marcus, Nov 01 2013 [corrected by Georg Fischer, Dec 28 2020]
MATHEMATICA
Table[Total[IntegerDigits[6^n]], {n, 0, 60}] (* Vincenzo Librandi, Oct 08 2013 *)
PROG
(PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { for (n=0, 1000, a=SumD(6^n); write("b066002.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009
(PARI) a(n) = sumdigits(6^n); \\ Michel Marcus, Nov 01 2013
CROSSREFS
Cf. sum of digits of k^n: A001370 (k=2), A004166 (k=3), A065713 (k=4), A066001 (k=5), this sequence (k=6), A066003(k=7), A066004 (k=8), A065999 (k=9), A066005 (k=11), A066006 (k=12), A175527 (k=13).
Cf. A007953.
Sequence in context: A273951 A307053 A100403 * A140052 A316072 A332439
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 11 2001
STATUS
approved