A248892 Primes p of the form 4m^2+1 such that q=4p^2+1, r=4q^2+1 and s=4r^2+1 are all prime.
1565891838737, 1985917919077, 2060476510097, 5590084720897, 39623323626437, 94860314619877, 114027286862737, 115071875848337, 117140013119377, 136739205150917, 246382184192357, 254109295929637, 265883157493777, 340055949647237, 378534223873937
Offset: 1
Keywords
Programs
-
Mathematica
apQ[p_]:=Module[{q=4p^2+1,r},r=4q^2+1;AllTrue[{p,q,r,4r^2+1},PrimeQ]]; Select[ 4*Range[ 10^7]^2+1,apQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 28 2019 *)
Comments