A094264 a(n) = Sum_{r = 1..n} (n^r mod r).

0, 0, 1, 1, 4, 1, 6, 10, 12, 9, 20, 12, 27, 32, 28, 32, 57, 38, 50, 67, 65, 82, 75, 76, 84, 147, 101, 143, 151, 117, 157, 208, 205, 210, 204, 199, 231, 309, 274, 239, 236, 275, 257, 430, 336, 364, 367, 459, 322, 484, 480, 551, 465, 547, 556, 682, 616, 733, 592, 555, 493, 774

Offset: 1

Author

Amarnath Murthy, Apr 26 2004

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A094263, A094265.

Programs

Maple

f:= proc(n) local r; add(n &^ r mod r, r=1..n) end proc:
map(f, [$1..100]); # Robert Israel, Apr 17 2023

Mathematica

Do[Print[Sum[Mod[n^r, r], {r, 1, n}]], {n, 1, 30}] (* Ryan Propper, Jul 10 2005 *)

Extensions

More terms from Ryan Propper, Jul 10 2005