login
A077254
Prime(n)^n mod n.
3
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.
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 31 2002
STATUS
approved