OFFSET
1,2
LINKS
Stefano Spezia, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[Mod[(n-1)Prime[n+1], Prime[n]], {n, 66}]
PROG
(PARI) a(n) = ((n-1)*prime(n+1)) % prime(n); \\ Michel Marcus, Jan 21 2021
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Stefano Spezia, Jan 21 2021
STATUS
approved