OFFSET
1,1
COMMENTS
Note that there is no case of 2 primes.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
112 = 2^4 * 7 = 53 + 59, 120 = 2^3 * 3 * 5 = 59 + 61, 162 = 2 * 3^4 = 79 + 83.
MATHEMATICA
Total[#] & /@ Select[Partition[Prime[Range[1000]], 2, 1], 5 == PrimeOmega[Total[#]] &]
PROG
(PARI) list(lim)=my(v=List()); forprime(p=2, lim\16, forprime(q=2, min(lim\(8*p), p), forprime(r=2, min(lim\(4*p*q), q), forprime(s=2, min(lim\(2*p*q*r), r), my(t=2*p*q*r*s); if(nextprime(t/2)+precprime(t/2)==t, listput(v, t)))))); Set(v) \\ Charles R Greathouse IV, Feb 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 02 2017
STATUS
approved