OFFSET
1,1
COMMENTS
In other words, numbers n which are a product of two distinct primes a and b such that n+-d are primes, where d is the difference between a and b.
EXAMPLE
a(10)=217 because 217 has only one pair of prime factors (7 and 31) and both 217+7-31 and 217-7+31 (193 and 241) are primes.
MATHEMATICA
pdpQ[{a_, b_}]:=Module[{d=b-a}, AllTrue[a*b+{d, -d}, PrimeQ]]; With[{upto = 2600}, Select[ Times@@@Select[Subsets[Prime[Range[upto/2]], {2}], pdpQ]// Union, #<=upto&]] (* Harvey P. Dale, Aug 02 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Chuck Seggelin (barkeep(AT)plastereddragon.com), Oct 11 2003
STATUS
approved