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, 215, 211, 191
Offset: 0
Links
- Harry J. Smith, Table of n, a(n) for n = 0..1000
Crossrefs
Programs
-
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 *)
-
PARI
a(n)=sumdigits(5^n); \\ Michel Marcus, Sep 04 2014
Comments