A318162 - OEIS

%I #10 Sep 20 2019 03:32:47

%S 1,6,50,392,2970,22022,160888,1162800,8335338,59366450,420630210,

%T 2967563040,20861295000,146203657992,1021964428880,7127260128736,

%U 49606676100234,344658278690250,2390849931605590,16561583202364200,114577083158683530,791757148201073670

%N Number of compositions of 2n-1 into exactly 2n-1 nonnegative parts with largest part n.

%H Alois P. Heinz, <a href="/A318162/b318162.txt">Table of n, a(n) for n = 1..1205</a>

%F a(n) = A180281(2n-1,n).

%F For n>1, a(n) = 2*(2*n - 1) * binomial(3*n - 4, n-2). - _Vaclav Kotesovec_, Sep 20 2019

%e a(1) = 1: 1.

%e a(2) = 6: 012, 021, 102, 120, 201, 210.

%e a(3) = 50: 00023, 00032, 00113, 00131, 00203, 00230, 00302, 00311, 00320, 01013, 01031, 01103, 01130, 01301, 01310, 02003, 02030, 02300, 03002, 03011, 03020, 03101, 03110, 03200, 10013, 10031, 10103, 10130, 10301, 10310, 11003, 11030, 11300, 13001, 13010, 13100, 20003, 20030, 20300, 23000, 30002, 30011, 30020, 30101, 30110, 30200, 31001, 31010, 31100, 32000.

%p a:= proc(n) option remember; (2*n-1)*`if`(n<3, n,

%p       3*(3*n-4)*(3*n-5)*a(n-1)/(2*(n-1)*(2*n-3)^2))

%p     end:

%p seq(a(n), n=1..30);

%t Flatten[{1, Table[2*(2*n - 1)*Binomial[3*n - 4, n-2], {n, 2, 20}]}] (* _Vaclav Kotesovec_, Sep 20 2019 *)

%Y Bisection of A318160 (odd part).

%Y Cf. A180281.

%K nonn

%O 1,2

%A _Alois P. Heinz_, Aug 19 2018