login
A154941
Sophie Germain primes in A154939.
0
3, 5, 11, 131, 419, 1409, 2069, 3449, 3761, 3911, 6899, 7079, 7151, 9539, 9791, 10529, 10691, 11321, 11831, 14741, 15269, 17291, 22079, 27281, 27809, 30449, 34439, 45131, 48479, 52289, 54251, 64439, 70901, 75389, 78839, 85691, 101411, 102911
OFFSET
1,1
COMMENTS
2*3+1=7, 5*2+1=11, ...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-1)*(p+1)-p]&&PrimeQ[(p-1)*(p+1)+p], If[PrimeQ[p*2+1], AppendTo[lst, p]]], {n, 8!}]; lst
Select[Prime[Range[10000]], AllTrue[{2#+1, (#-1)(#+1)+#, (#-1)(#+1)-#}, PrimeQ]&] (* Harvey P. Dale, Sep 21 2023 *)
KEYWORD
nonn
AUTHOR
STATUS
approved