%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