OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
Table[Total[IntegerDigits[13^k]], {k, 0, 1000}]
PROG
(PARI) a(n) = sumdigits(13^n); \\ Michel Marcus, Nov 01 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
N. J. A. Sloane, Dec 03 2010
STATUS
approved