A257500 Numbers that cannot be expressed as the sum of distinct odd composite numbers.

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 26, 28, 29, 31, 32, 37, 38, 41, 43, 47, 53

Offset

1,2

Links

Table of n, a(n) for n=1..31.

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

Cf. A071904.

Sequence in context: A095949 A106092 A210940 * A121208 A331914 A324935

Adjacent sequences: A257497 A257498 A257499 * A257501 A257502 A257503

Keyword

nonn,fini,full

Author

Franklin T. Adams-Watters, Apr 27 2015

Status

approved