%I #14 Aug 04 2019 12:02:50
%S 1,1,4,4,1,9,9,1,2,22,8,34,37,23,24,6,19,19,55,40,65,10,68,57,47,43,
%T 61,41,21,111,103,7,126,20,26,31,13,161,75,54,145,143,18,128,112,104,
%U 62,33,196,26,110,98,61,149,143,61,196,213,69,57,51,283,269,54,217,73,153,147,53,227,323,217,117,203
%N Prime(n)^2 mod prime(n-4).
%H Harvey P. Dale, <a href="/A179399/b179399.txt">Table of n, a(n) for n = 5..1000</a>
%e a(1)=11^2 mod(2)=121 mod(2)=1, a(2)=13^2 mod(3)=169 mod(3)=1, a(3)=17^2 mod(5)=289 mod(5)=4, a(4)=19^2 mod(7)=361 mod(7)=4,...
%p A179399 := proc(n) ithprime(n)^2 mod ithprime(n-4); end proc: # _R. J. Mathar_, Jan 09 2011
%t Table[PowerMod[Prime[n],2,Prime[n-4]],{n,5,80}] (* _Harvey P. Dale_, Aug 04 2019 *)
%Y Cf. A038702.
%K nonn
%O 5,3
%A _Umut Uludag_, Jan 07 2011
|