OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..386
MAPLE
f:= proc(n) local k; n^n - add(k^n, k=1..n-1) end proc:
map(f, [$1..30]); # Robert Israel, Feb 10 2021
MATHEMATICA
a[n_] := n^n - Sum[k^n, {k, 0, n - 1}]; Array[a, 20] (* Amiram Eldar, Apr 28 2021 *)
PROG
(PARI) a(n) = n^n-sum(k=0, n-1, k^n);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Seiichi Manyama, Feb 09 2021
STATUS
approved