OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
MAPLE
dig := X->convert((convert(X, base, 10)), `+`); a := n->dig(sum(m^n, m=1..n));
MATHEMATICA
Table[Sum[DigitCount[Sum[k^n, {k, 1, n}]][[i]]*i, {i, 9}], {n, 0, 100}] (* G. C. Greubel, Oct 13 2018 *)
PROG
(PARI) a(n) = sumdigits(sum(k=1, n, k^n)); \\ Michel Marcus, Oct 14 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Francois Jooste (phukraut(AT)hotmail.com), Mar 10 2002
STATUS
approved