|
|
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.
|
|
1
|
|
|
9220303, 16079387, 17232253, 43606237, 66063373, 85403083, 97649917, 104719757, 159685553, 180467533, 197072563, 344777863, 492619373, 517774063, 647320727, 672712637, 715230127, 769494413, 790845563, 909545573, 944196137, 975302173, 1120585597, 1123182763
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|