OFFSET
18,1
COMMENTS
No two adjacent parts of a Carlitz composition are equal.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 18..1000
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1,
convert(series(add(`if`(i=j, 0, b(n-j, j)*
`if`(j<i, x, 1)), j=1..n), x, 7), polynom))
end:
a:= n-> coeff(b(n, 0), x, 6):
seq(a(n), n=18..50);
CROSSREFS
KEYWORD
nonn
AUTHOR
_Alois P. Heinz_, Apr 27 2014
STATUS
approved