|
%I #5 Jul 06 2014 16:40:53
%S 1,8,52,225,813,2444,6563,15837,35304,73544,144542,270622,485229,
%T 838813,1401911,2277346,3601229,5565741,8415746,12487185,18197114,
%U 26097804,36868409,51383060,70693900,96130946,129286606,172104111,226920654,296516361,384211698
%N Number of compositions of n with exactly 6 transitions between different parts.
%H Alois P. Heinz, <a href="/A244718/b244718.txt">Table of n, a(n) for n = 10..900</a>
%p b:= proc(n, v) option remember; `if`(n=0, [1, 0$6],
%p add(`if`(v in [0, i], b(n-i, `if`(i<=n-i, i, -1)),
%p [0, b(n-i, `if`(i<=n-i, i, -1))[1..6][]]), i=1..n))
%p end:
%p a:= n-> b(n, 0)[7]:
%p seq(a(n), n=10..60);
%Y Column k=6 of A238279.
%K nonn
%O 10,2
%A _Joerg Arndt_ and _Alois P. Heinz_, Jul 04 2014
|
