A179398 a(n) = prime(n)^2 mod prime(n-3).

1, 1, 4, 2, 9, 9, 8, 11, 12, 28, 20, 26, 21, 41, 8, 37, 26, 22, 10, 2, 37, 8, 75, 18, 3, 64, 100, 79, 48, 11, 17, 62, 59, 46, 47, 105, 99, 93, 29, 151, 17, 75, 64, 131, 85, 187, 113, 100, 144, 144, 91, 85, 2, 73, 196, 196, 144, 144, 256, 114, 218, 107, 100, 89, 263, 266, 324, 256, 144, 324, 47, 41, 256, 256, 324

Offset

4,3

Links

Table of n, a(n) for n=4..78.

Example

a(1) =  7^2 mod 2 =  49 mod 2 = 1;
a(2) = 11^2 mod 3 = 121 mod 3 = 1;
a(3) = 13^2 mod 5 = 169 mod 5 = 4;
a(4) = 17^2 mod 7 = 289 mod 7 = 2.

Maple

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

Mathematica

Table[PowerMod[Prime[n], 2, Prime[n-3]], {n, 4, 80}] (* Harvey P. Dale, Dec 13 2011 *)

Crossrefs

Cf. A038702.

Sequence in context: A185654 A228041 A242049 * A233295 A298567 A006172

Adjacent sequences: A179395 A179396 A179397 * A179399 A179400 A179401

Keyword

nonn

Author

Umut Uludag, Jan 07 2011

Status

approved