OFFSET
0,6
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MAPLE
P:=proc(i) local a, n; for n from 0 by 1 to i do a:=sum('(n^k mod (n-k+1))', 'k'=1..n); print(a); od; end: P(100);
MATHEMATICA
Table[Sum[PowerMod[n, k, n-k+1], {k, n}], {n, 0, 60}] (* Harvey P. Dale, Dec 12 2021 *)
PROG
(PARI) a(n) = sum(k=1, n, n^k%(n-k+1)); \\ Jinyuan Wang, Aug 02 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Feb 10 2009
STATUS
approved