OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 10^3: # to get all terms <= N
Primes:= select(isprime, [2, seq(i, i=3..N/2, 2)]):
Cands:= select(t -> t::odd and t <= N, {seq(seq(2*p+3*q, p=Primes), q=Primes)}):
sort(convert(select(numtheory:-bigomega=2, Cands), list)); # Robert Israel, Jan 09 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Randy L. Ekl, Jan 02 2017
STATUS
approved