A179399 Prime(n)^2 mod prime(n-4).

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, 61, 41, 21, 111, 103, 7, 126, 20, 26, 31, 13, 161, 75, 54, 145, 143, 18, 128, 112, 104, 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

Offset: 5

Author

Umut Uludag, Jan 07 2011

Keywords

• nonn

Examples

			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,...
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 5..1000

Crossrefs

Cf. A038702.

Programs

Maple

A179399 := proc(n) ithprime(n)^2 mod ithprime(n-4); end proc: # R. J. Mathar, Jan 09 2011

Mathematica

Table[PowerMod[Prime[n],2,Prime[n-4]],{n,5,80}] (* Harvey P. Dale, Aug 04 2019 *)