A248887
Primes p of the form 4m^2+1 such that q=4p^2+1 and r=4q^2+1 are prime.
Original entry on oeis.org
677, 6635777, 28132417, 156400037, 234518597, 381655297, 386751557, 403849217, 820020497, 1215498497, 1298449157, 1539463697, 1580539537, 1839037457, 2072616677, 2774550277, 2969814017, 6147500837, 6194319617, 6703351877, 6937890437
Offset: 1
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.
Original entry on oeis.org
1565891838737, 1985917919077, 2060476510097, 5590084720897, 39623323626437, 94860314619877, 114027286862737, 115071875848337, 117140013119377, 136739205150917, 246382184192357, 254109295929637, 265883157493777, 340055949647237, 378534223873937
Offset: 1
-
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 *)
Showing 1-2 of 2 results.
Comments