A154941 Sophie Germain primes in A154939.

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

Author

Vladimir Joseph Stephan Orlovsky, Jan 17 2009

Keywords

• nonn

Comments

2*3+1=7, 5*2+1=11, ...

Crossrefs

Cf. A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939

Programs

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 *)