OFFSET
1,1
COMMENTS
All primes (except 5) in the sequence are of the form 100*k^2 + 1.
MATHEMATICA
Select[Range[50000]^2 + 1, AllTrue[{#, # + 2, 2*# + 1}, PrimeQ] &] (* Amiram Eldar, Sep 20 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Angad Singh, Sep 20 2021
STATUS
approved