A066001 Sum of digits of 5^n.

1, 5, 7, 8, 13, 11, 19, 23, 25, 26, 40, 38, 28, 23, 34, 44, 58, 56, 64, 59, 61, 62, 67, 74, 82, 77, 79, 89, 85, 83, 91, 104, 106, 89, 103, 92, 109, 104, 124, 134, 130, 137, 145, 149, 151, 116, 112, 128, 145, 158, 151, 152, 130, 119, 127, 167, 196

Offset

0,2

Comments

We can expect and conjecture that a(n) ~ 4.5*log_10(5)*n, but for n ~ 10^3..10^4 there are still fluctuations of +- 1%, e.g., a(10^3)/log_10(5) ~ 4538, a(10^4)/log_10(5) ~ 44518. Modulo 9, the sequence is periodic with period (1, 5, 7, 8, 4, 2) of length 6. No term is divisible by 3, a(n) = (-1)^n (mod 3). - M. F. Hasler, May 18 2017

Links

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

Mathematica

Table[ Total@ IntegerDigits[5^n], {n, 0, 60}] (* Robert G. Wilson v Oct 25 2006 *).
Table[Total[IntegerDigits[5^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(5^n); write("b066001.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009
(PARI) A066001=a(n)=sumdigits(5^n); \\ Michel Marcus, Sep 04 2014

Crossrefs

Cf. sum of digits of k^n: A001370 (k=2), A004166 (k=3), A065713 (k=4), this sequence (k=5), A066002 (k=6), A066003 (k=7), A066004 (k=8), A065999 (k=9), A066005 (k=11), A066006 (k=12), A175527 (k=13).

Sequence in context: A257772 A356897 A314374 * A320391 A047477 A216555

Adjacent sequences: A065998 A065999 A066000 * A066002 A066003 A066004

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 11 2001

Status

approved