OFFSET
4,3
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
KEYWORD
nonn
AUTHOR
Umut Uludag, Jan 07 2011
STATUS
approved