OFFSET
1,1
COMMENTS
Most but not all terms are multiples of 4.
EXAMPLE
24 = 2^3 * 3 = 11 + 13, 36 = 2^2 * 3^2 = 17 + 19, 60 = 2^2 * 3 * 5 = 29 + 31.
MATHEMATICA
Total[#] & /@ Select[Partition[Prime[Range[200]], 2, 1], 4 == PrimeOmega[Total[#]] &]
PROG
(Magma) /* From the second comment: */
a:={n: n in [2..1500] | &+[p[2]: p in Factorization(n)] eq 4};
b:={p+NextPrime(p): p in PrimesUpTo(800)};
a meet b; // Bruno Berselli, Feb 02 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 02 2017
STATUS
approved