OFFSET
1,2
MATHEMATICA
lim = 120; Complement[Range@ 120, TakeWhile[Plus @@@ Subsets[Select[Range@ lim, OddQ@ # && CompositeQ@ # &], 5], # < 5 lim &]] (* Michael De Vlieger, Apr 27 2015 *)
PROG
(PARI) alist(n) = local(poly=1+x*x^n); forstep(k=9, n, 2, if(!isprime(k), poly*=1+x^k)); for(k=1, n, if(polcoeff(poly, k)==0, print1(k", ")))
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Franklin T. Adams-Watters, Apr 27 2015
STATUS
approved