OFFSET
1,20
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
FORMULA
G.f.: x^10 * Sum_{k>=0} x^(10*k)/Product_{j=1..2*k+1} (1-x^j). - Seiichi Manyama, May 15 2023
MAPLE
b:= proc(n, i, t) option remember; `if`(n=0, t,
`if`(i>n, 0, b(n, i+1, t)+b(n-i, i, 1-t)))
end:
a:= n-> `if`(n<5, 0, b(n-5, 5, 0)):
seq(a(n), n=1..100); # Alois P. Heinz, Oct 18 2019
MATHEMATICA
b[n_, i_, t_] := b[n, i, t] = If[n == 0, t, If[i > n, 0, b[n, i + 1, t] + b[n - i, i, 1 - t]]];
a[n_] := If[n < 5, 0, b[n - 5, 5, 0]];
a /@ Range[100] (* Jean-François Alcover, Feb 06 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved