OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
A022457 := proc(n)
modp(ithprime(2*n), ithprime(n)) ;
end proc:
seq(A022457(n), n=1..67) ; # R. J. Mathar, Sep 02 2016
MATHEMATICA
Table[Mod[Prime[2*n], Prime[n]], {n, 1, 50}] (* G. C. Greubel, Feb 28 2018 *)
PROG
(PARI) a(n) = prime(2*n) % prime(n); \\ Michel Marcus, Sep 30 2013
(Magma) [NthPrime(2*n) mod NthPrime(n): n in [1..50]]; // G. C. Greubel, Feb 28 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved