OFFSET
0,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..1000
EXAMPLE
a(7) = 25 because 7^7 = 823543 and 8 + 2 + 3 + 5 + 4 + 3 = 25.
MAPLE
a:= n-> add(i, i=convert(n^n, base, 10)):
seq(a(n), n=0..60); # _Alois P. Heinz_, Oct 06 2023
MATHEMATICA
Table[Plus@@IntegerDigits@(n^n), {n, 80}] (* _Vincenzo Librandi_, Jun 18 2015 *)
PROG
(PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { for (n=0, 1000, write("b066588.txt", n, " ", SumD(n^n)) ) } \\ _Harry J. Smith_, Mar 08 2010
(PARI) vector(100, n, sumdigits((n-1)^(n-1))) \\ _Michel Marcus_, Jun 18 2015
(Magma) [&+Intseq((n^n)): n in [0..80] ]; // _Vincenzo Librandi_, Jun 18 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert A. Stump (bee_ess107(AT)yahoo.com), Jan 07 2002
EXTENSIONS
More terms from _Paolo P. Lava_, May 15 2007
a(0)=1 inserted by _Sean A. Irvine_, Oct 06 2023
STATUS
approved