A066003 Sum of digits of 7^n.
1, 7, 13, 10, 7, 22, 28, 25, 31, 28, 43, 49, 37, 52, 58, 64, 52, 58, 73, 79, 76, 82, 97, 85, 73, 97, 112, 91, 133, 121, 118, 115, 103, 127, 142, 157, 136, 115, 130, 136, 142, 148, 136, 169, 175, 163, 187, 175, 136, 178, 184, 217, 196, 220, 217
Offset: 0
Links
- Harry J. Smith, Table of n, a(n) for n=0,...,1000
Crossrefs
Programs
-
Magma
[ &+Intseq(7^n): n in [0..60] ];
-
Mathematica
Table[Total[IntegerDigits[7^n]],{n,55}] (* Harvey P. Dale, Nov 22 2010 *)
-
PARI
a(n) = sumdigits(7^n); \\ Michel Marcus, Nov 01 2013