OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..350
EXAMPLE
19=9+10=4+6+9, 73=35+38=22+25+26.
MATHEMATICA
Module[{nn=25000, sp, c2, c3}, sp=Select[Range[nn], PrimeOmega[#]==2&]; c2= Select[ Total/@Partition[sp, 2, 1], PrimeQ]; c3=Select[Total/@Partition[ sp, 3, 1], PrimeQ]; Intersection[c2, c3]] (* Harvey P. Dale, Sep 21 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 09 2015
EXTENSIONS
Definition clarified by Harvey P. Dale, Sep 21 2019
STATUS
approved