|
%I #24 Jul 31 2023 09:32:49
%S 1,1,1,3,4,5,15,21,28,84,120,165,495,715,1001,3003,4368,6188,18564,
%T 27132,38760,116280,170544,245157,735471,1081575,1562275,4686825,
%U 6906900,10015005,30045015,44352165,64512240,193536720,286097760,417225900,1251677700
%N a(n) = binomial(n, floor(n/3)).
%H Seiichi Manyama, <a href="/A051033/b051033.txt">Table of n, a(n) for n = 0..1000</a>
%p [seq(binomial(n,floor(n/3)), n=0..50)];
%t a[n_] := Binomial[n, Floor[n/3]]; Array[a, 50, 0] (* _Enrique Pérez Herrero_, Mar 06 2012 *)
%Y Cf. A001405, A051036, A051052, A051053, A062947.
%Y Cf. A047193.
%K nonn,easy
%O 0,4
%A _N. J. A. Sloane_
|
