|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
2*3+1=7, 5*2+1=11, ...
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|