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,13

Links

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

Mathematica

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

Crossrefs

Cf. A094264, A094265.

Sequence in context: A286561 A378452 A068101 * A049761 A211225 A030618

Adjacent sequences: A094260 A094261 A094262 * A094264 A094265 A094266

Keyword

nonn,easy,tabl,less

Author

Amarnath Murthy, Apr 26 2004

Extensions

Edited and extended by David Wasserman, Jan 24 2007

Status

approved