A077254 a(n) = 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

Author

Reinhard Zumkeller, Oct 31 2002

Keywords

• nonn

Comments

a(A077255(n)) = 1.

Examples

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

Links

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

Crossrefs

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

Programs

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 *)