OFFSET
1,5
COMMENTS
Graph is similar to that of A004648.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Mod[Prime[n] + 1, n], {n, 100}] (* Vincenzo Librandi, Sep 11 2014 *)
PROG
(Magma) [(NthPrime(n)+1) mod(n): n in [1..90]]; // Vincenzo Librandi, Sep 11 2014
(PARI) lista(nn) = {forprime(p=2, n, print1((p+1) % primepi(p), ", "); ); } \\ Michel Marcus, Sep 11 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Labos Elemer, Jul 26 2004
STATUS
approved