Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A066004
Sum of digits of 8^n.
14
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
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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 11 2001
STATUS
approved