OFFSET
1,1
COMMENTS
Primes of the form p+q^2+r where p, q and r are consecutive members of the sequence of primes of the form 6*k-1.
All terms == 5 (mod 6).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
q:= 5: r:= 11: count:= 0: R:= NULL:
while count < 40 do
p:= q; q:= r;
do r:= r+6 until isprime(r);
if isprime(p+q^2+r) then count:= count+1; R:= R, p+q^2+r fi
od:
R;
MATHEMATICA
Select[#[[1]] + #[[2]]^2 + #[[3]] & /@ Partition[Select[Prime[Range[400]], Mod[#1, 6] == 5 &], 3, 1], PrimeQ] (* Amiram Eldar, Aug 16 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Aug 16 2022
STATUS
approved