A245746 Prime numbers P such that Q=4*P^2+1, R=4*Q^2+1, S=4*R^2+1, T=4*S^2+1 and Q, R, S, T are all prime numbers.
9220303, 16079387, 17232253, 43606237, 66063373, 85403083, 97649917, 104719757, 159685553, 180467533, 197072563, 344777863, 492619373, 517774063, 647320727, 672712637, 715230127, 769494413, 790845563, 909545573, 944196137, 975302173, 1120585597, 1123182763
Offset: 1
Keywords
Links
- Pierre CAMI, Table of n, a(n) for n = 1..30
Programs
-
Mathematica
pnQ[n_]:=Module[{q=4n^2+1,r,s,t},r=4q^2+1;s=4r^2+1;t=4s^2+1;AllTrue[ {q,r,s,t},PrimeQ]]; Select[Prime[Range[5678*10^4]],pnQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 08 2019 *)
Comments