A347934 Primes p of the form k^2 + 1 such that p+2 and 2p+1 are also prime.
5, 25601, 193601, 1144901, 1464101, 4326401, 6100901, 12390401, 23522501, 72931601, 127012901, 245862401, 256960901, 351937601, 441840401, 732784901, 802588901, 951722501, 1621672901, 2024100101, 2070250001, 2217468101, 2219352101, 2428518401, 2930056901, 2963713601
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[50000]^2 + 1, AllTrue[{#, # + 2, 2*# + 1}, PrimeQ] &] (* Amiram Eldar, Sep 20 2021 *)
Comments