OFFSET
1,1
MATHEMATICA
s = Partition[Select[Range[10^6], PrimeOmega@ # == 2 &], 2, 1]; Intersection[Map[Total, s], Map[Times @@ # &, s]] (* Michael De Vlieger, Jun 21 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 20 2017
EXTENSIONS
More terms from Michel Marcus, Jun 27 2017
STATUS
approved