OFFSET
1,1
COMMENTS
6=2*3; 2 and 3 are Sophie Germain primes, 10=2*5; 2 and 5 are Sophie Germain primes, 15=3*5; 3 and 5 are Sophie Germain primes, ...
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
lst={}; Do[If[Plus@@Last/@FactorInteger[n]==2, a=Length[First/@FactorInteger[n]]; If[a==2, b=First/@FactorInteger[n]; c=b[[1]]; d=b[[2]]; If[PrimeQ[2*c+1]&&PrimeQ[2*d+1], AppendTo[lst, n]]]], {n, 7!}]; lst
nn=100; With[{sgp=Select[Prime[Range[nn]], PrimeQ[2#+1]&]}, Take[ Union[ Select[ Times @@@ Subsets[sgp, {2}], PrimeOmega[#]==2&]], nn]] (* Harvey P. Dale, Nov 22 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 27 2009
STATUS
approved