login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Prime(n)^n mod n.
3

%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