OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst = {}; Do[If[PrimeQ[p] && ! PrimeQ[p^2 - p - 1], AppendTo[lst, p^2 - p -1]], {p, 300}]; lst (* Vincenzo Librandi, Sep 08 2012 *)
PROG
(Magma) [q: p in PrimesUpTo(300) | IsPrime(p) and not IsPrime(q) where q is p^2 - p - 1] // Vincenzo Librandi, Sep 08 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 27 2006
STATUS
approved