OFFSET
1,1
COMMENTS
Terms from Charles R Greathouse IV.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..1000
EXAMPLE
11+13+1=25=5^2 with 5 a prime.
MATHEMATICA
Select[Partition[Prime[Range[41000]], 2, 1], PrimeQ[Sqrt[Total[#]+1]]&][[All, 1]] (* Harvey P. Dale, Apr 17 2022 *)
PROG
(PARI) p=2; forprime(q=3, 1e9, if(issquare(p+q+1, &t)&&isprime(t), print1(p", ")); p=q) \\ Charles R Greathouse IV, Aug 27 2013
(Magma) [p: p in PrimesUpTo(5*10^5) | IsSquare(t) and IsPrime(Isqrt(t)) where t is p+NextPrime(p)+1]; // Bruno Berselli, Aug 28 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot, Aug 27 2013
STATUS
approved