A062947 a(n) = binomial(n,floor(n/7)).

1, 1, 1, 1, 1, 1, 1, 7, 8, 9, 10, 11, 12, 13, 91, 105, 120, 136, 153, 171, 190, 1330, 1540, 1771, 2024, 2300, 2600, 2925, 20475, 23751, 27405, 31465, 35960, 40920, 46376, 324632, 376992, 435897, 501942, 575757, 658008, 749398, 5245786, 6096454, 7059052, 8145060

Offset

0,8

Links

Seiichi Manyama, Table of n, a(n) for n = 0..5000

Mathematica

Table[Binomial[n, Floor[n/7]], {n, 50}] (* Harvey P. Dale, Jul 24 2019 *)

Prog

(PARI) j=[]; for(n=1, 75, j=concat(j, binomial(n, floor(n/7)))); j

Crossrefs

Cf. A001405, A051036, A051052, A051053.

Sequence in context: A023388 A065808 A250046 * A194345 A363492 A120208

Adjacent sequences: A062944 A062945 A062946 * A062948 A062949 A062950

Keyword

nonn,easy

Author

Jason Earls, Jul 21 2001

Extensions

a(0)=1 prepended by Alois P. Heinz, Oct 20 2022

Status

approved