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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 31 2002
STATUS
approved