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,2

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

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

Adjacent sequences: A065999 A066000 A066001 * A066003 A066004 A066005

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 11 2001

Status

approved