OFFSET
1,2
COMMENTS
Numbers not in A079026.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
FORMULA
a(n) < 1.5n + O(n/log n). - Charles R Greathouse IV, Dec 04 2012
MATHEMATICA
mx = 200; Complement[Range[mx], Flatten@Table[2 Prime[i] + 3 Prime[k], {k, PrimePi[(mx - 4)/3]}, {i, PrimePi[(mx - 3 Prime[k])/2]}]] (* Zak Seidov, Dec 04 2012 *)
PROG
(PARI) list(lim)=my(v=vectorsmall(lim\1), u=List()); forprime(p=2, lim\2, forprime(q=2, (lim-2*p)\3, v[2*p+3*q]=1)); for(i=1, #v, if(!v[i], listput(u, i))); Vec(u) \\ Charles R Greathouse IV, Dec 04 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 02 2012
STATUS
approved