OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Table[Mod[Prime[n + 1]Prime[n + 2], Prime[n]], {n, 1, 80}] (* Stefan Steinerberger, Apr 14 2006 *)
Mod[#[[2]]#[[3]], #[[1]]]&/@Partition[Prime[Range[70]], 3, 1] (* Harvey P. Dale, Jun 05 2023 *)
PROG
(PARI) for(n=1, 50, print1((prime(n+1)*prime(n+2)) % prime(n), ", ")) \\ G. C. Greubel, Feb 27 2018
(Magma) [NthPrime(n+1)*NthPrime(n+2) mod NthPrime(n): n in [1..50]]; // G. C. Greubel, Feb 27 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved