A244720 - OEIS

%I #5 Jul 06 2014 16:34:08

%S 1,10,77,415,1825,6692,21587,62225,164197,401173,919007,1989942,

%T 4102426,8100013,15388485,28249241,50273708,87007800,146783168,

%U 241958083,390411308,617752456,959909294,1466853260,2206861654,3272535062,4787597429,6916184121,9873403733

%N Number of compositions of n with exactly 8 transitions between different parts.

%H Alois P. Heinz, <a href="/A244720/b244720.txt">Table of n, a(n) for n = 13..900</a>

%p b:= proc(n, v) option remember; `if`(n=0, [1, 0$8],

%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..8][]]), i=1..n))

%p     end:

%p a:= n-> b(n, 0)[9]:

%p seq(a(n), n=13..60);

%Y Column k=8 of A238279.

%K nonn

%O 13,2

%A _Joerg Arndt_ and _Alois P. Heinz_, Jul 04 2014