A051033 a(n) = binomial(n, floor(n/3)).

1, 1, 1, 3, 4, 5, 15, 21, 28, 84, 120, 165, 495, 715, 1001, 3003, 4368, 6188, 18564, 27132, 38760, 116280, 170544, 245157, 735471, 1081575, 1562275, 4686825, 6906900, 10015005, 30045015, 44352165, 64512240, 193536720, 286097760, 417225900, 1251677700

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A001405, A051036, A051052, A051053, A062947.

Cf. A047193.

Programs

Maple

[seq(binomial(n,floor(n/3)), n=0..50)];

Mathematica

a[n_] := Binomial[n, Floor[n/3]]; Array[a, 50, 0] (* Enrique Pérez Herrero, Mar 06 2012 *)