OFFSET
1,1
COMMENTS
EXAMPLE
2304 = 2^8 * 3^2 = 1151 + 1153, 3456 = 2^7 * 3^3 = 1723 + 1733, 5184 = 2^6 * 3^4 = 2591 + 2593.
MATHEMATICA
Total[#] & /@ Select[Partition[Prime[Range[10000]], 2, 1], 10 == PrimeOmega[Total[#]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 02 2017
STATUS
approved