12,1
Alois P. Heinz, Table of n, a(n) for n = 12..470
b:= proc(u, o, t) option remember; series(`if`(u+o=0, x^t,
add(b(u+j-1, o-j, irem(t+1, 2)), j=1..o)+
add(b(u-j, o+j-1, 0)*x^t, j=1..u)), x, 7)
end:
a:= n-> coeff(b(n, 0$2), x, 6):
seq(a(n), n=12..30);
Column k=6 of A097592.
Sequence in context: A251457 A178291 A212231 * A081409 A251997 A104848
Adjacent sequences: A317283 A317284 A317285 * A317287 A317288 A317289
nonn
Alois P. Heinz, Jul 25 2018
approved
