A094265 -id:A094265 - cp's OEIS frontend

A094263 Triangle read by rows: for 1 <= k <= n, a(n, k) = n^k mod k.

0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 0, 0, 0, 2, 0, 3, 4, 1, 0, 0, 1, 0, 1, 4, 3, 2, 1, 0, 0, 0, 1, 0, 0, 4, 3, 0, 1, 0, 0, 1, 2, 1, 1, 1, 4, 1, 8, 1, 0, 0, 0, 0, 0, 2, 0, 5, 0, 0, 4, 1, 0, 0, 1, 1, 1, 3, 1, 6, 1, 1, 9, 2, 1, 0, 0, 0, 2, 0, 4, 4, 0, 0, 8, 6, 3, 4, 1, 0

Offset: 1

Amarnath Murthy, Apr 26 2004

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A094264, A094265.

Table[PowerMod[n,k,k],{n,20},{k,n}]//Flatten (* Harvey P. Dale, Apr 14 2020 *)

Edited and extended by David Wasserman, Jan 24 2007

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

Original entry on oeis.org

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

Amarnath Murthy, Apr 26 2004

nonn

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

Cf. A094263, A094265.

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

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

More terms from Ryan Propper, Jul 10 2005

cp's OEIS Frontend

A094263 Triangle read by rows: for 1 <= k <= n, a(n, k) = n^k mod k.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions