OFFSET
1,1
COMMENTS
See A053183 for the primes associated with a(n).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A053182(n) + 1.
MATHEMATICA
Select[Prime[Range[500]] + 1, PrimeQ[#^2 - # + 1] &] (* Amiram Eldar, Apr 19 2024 *)
PROG
(PARI) lista(pmax) = forprime(p=1, pmax, if(isprime(p^2+p+1), print1(p+1, ", "))); \\ Amiram Eldar, Apr 19 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Lekraj Beedassy, Dec 24 2007
STATUS
approved