A077254 Prime(n)^n mod n.

0, 1, 2, 1, 1, 1, 3, 1, 8, 1, 9, 1, 2, 1, 8, 1, 8, 1, 10, 1, 13, 15, 14, 1, 7, 9, 1, 9, 22, 19, 3, 1, 26, 9, 4, 1, 9, 7, 5, 1, 15, 1, 19, 9, 17, 41, 23, 1, 31, 1, 11, 1, 29, 1, 23, 9, 8, 13, 41, 1, 39, 41, 55, 1, 53, 31, 63, 13, 8, 1, 69, 1, 2, 9, 49, 5, 16, 25, 6, 1, 80, 39, 16, 1, 29, 83

Offset

1,3

Comments

a(A077255(n)) = 1.

Links

Zak Seidov, Table of n, a(n) for n = 1..10000

Example

a(13) = prime(13)^13 mod 13 = 41^13 mod 13 = 925103102315013629321 mod 13 = 2.

Maple

a:= n-> ithprime(n) &^ n mod n:
seq(a(n), n=1..100);  # Alois P. Heinz, Dec 07 2012

Mathematica

Table[PowerMod[Prime[n], n, n], {n, 100}] (* Zak Seidov, Dec 07 2012 *)

Crossrefs

a(n) = A062457(n) mod n, A077256, A000040, A000027.

Sequence in context: A090379 A254655 A344971 * A074761 A037861 A145037

Adjacent sequences: A077251 A077252 A077253 * A077255 A077256 A077257

Keyword

nonn

Author

Reinhard Zumkeller, Oct 31 2002

Status

approved