login
n^3 mod n-th prime.
2

%I #5 Jun 18 2016 00:44:07

%S 1,2,2,1,4,8,3,18,16,14,29,26,24,35,38,15,16,37,25,48,63,62,49,29,8,2,

%T 10,17,82,106,73,18,43,106,112,148,99,104,34,163,6,59,51,71,111,25,11,

%U 207,63,195,74,76,180,87,96,195,121,263,122,192,15,119,149,282,124,294

%N n^3 mod n-th prime.

%H G. C. Greubel, <a href="/A167622/b167622.txt">Table of n, a(n) for n = 1..1000</a>

%t (*1*) Table[PowerMod[n,3,Prime[n]],{n,100}]

%t (*2*) PowerMod[ #,3,Prime[ # ]]&/@Range[100]

%Y Cf. A069547, A167623.

%K nonn

%O 1,2

%A _Zak Seidov_, Nov 07 2009