Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Jan 10 2015 10:05:19
%S 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,
%T 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,
%U 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
%N Prime(n)^n mod n.
%C a(A077255(n)) = 1.
%H Zak Seidov, <a href="/A077254/b077254.txt">Table of n, a(n) for n = 1..10000</a>
%e a(13) = prime(13)^13 mod 13 = 41^13 mod 13 = 925103102315013629321 mod 13 = 2.
%p a:= n-> ithprime(n) &^ n mod n:
%p seq(a(n), n=1..100); # _Alois P. Heinz_, Dec 07 2012
%t Table[PowerMod[Prime[n], n, n], {n, 100}] (* _Zak Seidov_, Dec 07 2012 *)
%Y a(n) = A062457(n) mod n, A077256, A000040, A000027.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Oct 31 2002