A053731 a(n) = ceiling(binomial(n,8)/n).

0, 0, 0, 0, 0, 0, 0, 1, 1, 5, 15, 42, 99, 215, 429, 805, 1430, 2431, 3978, 6299, 9690, 14535, 21318, 30645, 43263, 60088, 82225, 111004, 148005, 195098, 254475, 328697, 420732, 534006, 672452, 840565, 1043460, 1286934, 1577532, 1922618

Offset

1,10

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

R. L. Graham and N. J. A. Sloane, Lower bounds for constant weight codes, IEEE Trans. Inform. Theory, 26 (1980), 37-43.

Maple

seq(ceil(binomial(n, 8)/n), n=1..45); # G. C. Greubel, Sep 06 2019

Mathematica

Table[Ceiling[Binomial[n, 8]/n], {n, 45}] (* G. C. Greubel, Sep 06 2019 *)

Prog

(PARI) vector(45, n, ceil(binomial(n, 8)/n)) \\ G. C. Greubel, Sep 06 2019
(Magma) [Ceiling(Binomial(n, 8)/n): n in [1..45]]; // G. C. Greubel, Sep 06 2019
(Sage) [ceil(binomial(n, 8)/n) for n in (1..45)] # G. C. Greubel, Sep 06 2019

Crossrefs

Cf. Sequences of the form ceiling(binomial(n,k)/n): A000012 (k=1), A004526 (k=2), A007997 (k=3), A008646 (k=5), A032192 (k=7), A053618 (k=4), A053643 (k=6), this sequence (k=8), A053733 (k=9).

Sequence in context: A288414 A102620 A211380 * A111295 A200760 A032193

Adjacent sequences: A053728 A053729 A053730 * A053732 A053733 A053734

Keyword

nonn

Author

N. J. A. Sloane, Mar 25 2000

Status

approved