OFFSET
1,1
MATHEMATICA
With[{nn=60}, Take[Select[Union[Times@@#+1&/@Subsets[Prime[Range[2nn]], {2}]], PrimeOmega[#]==2&], nn]] (* Harvey P. Dale, Apr 28 2018 *)
PROG
(PARI) for(i=1, 1000, if(bigomega(i)==2&&bigomega(i+1)==2&&issquare(i)==0, print1(i+1, ", "))) (Klasen)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Aug 20 2005
EXTENSIONS
More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Aug 21 2005
STATUS
approved