|
| |
|
|
A094264
|
|
a(n) = sum_{r = 1 .. n}(n^r mod r)
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
MATHEMATICA
| Do[Print[Sum[Mod[n^r, r], {r, 1, n}]], {n, 1, 30}] (Propper)
|
|
|
CROSSREFS
| Cf. A094263, A094265.
Sequence in context: A124739 A122662 A083843 * A056140 A140895 A191714
Adjacent sequences: A094261 A094262 A094263 * A094265 A094266 A094267
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 26 2004
|
|
|
EXTENSIONS
| More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 10 2005
|
| |
|
|
