OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
seq(ithprime(i^2) mod ithprime(i), i=1..1000); # Robert Israel, May 26 2014
MATHEMATICA
Table[Mod[Prime[n^2], Prime[n]], {n, 100}] (* Vincenzo Librandi, Dec 09 2014 *)
PROG
(PARI) a(n) = prime(n^2) % prime(n); \\ Michel Marcus, Sep 30 2013
(Magma) [NthPrime(n^2) mod NthPrime(n): n in [1..90]]; // Vincenzo Librandi, Dec 09 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved