OFFSET
0,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
Table[Total[IntegerDigits[12^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(12^n); write("b066006.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009
(PARI) a(n) = sumdigits(12^n); \\ Michel Marcus, Nov 01 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 11 2001
STATUS
approved