A066004 Sum of digits of 8^n.

1, 8, 10, 8, 19, 26, 19, 26, 37, 35, 37, 62, 64, 71, 46, 62, 73, 80, 82, 80, 82, 89, 109, 89, 109, 125, 100, 107, 118, 107, 118, 125, 127, 107, 118, 125, 145, 143, 145, 152, 172, 170, 172, 188, 181, 170, 190, 215, 172, 215, 235, 233, 217, 215

Offset

0,2

Links

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

Formula

a(n) = A007953(A001018(n)). - Michel Marcus, Nov 01 2013

Mathematica

Table[Total[IntegerDigits[8^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(8^n); write("b066004.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009
(PARI) a(n) = sumdigits(8^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), A066002 (k=6), A066003(k=7), this sequence (k=8), A065999 (k=9), A066005 (k=11), A066006 (k=12), A175527 (k=13).

Sequence in context: A088487 A010733 A365790 * A334938 A334928 A107032

Adjacent sequences: A066001 A066002 A066003 * A066005 A066006 A066007

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 11 2001

Status

approved