OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
FORMULA
a(n) ~ c * 3^n, where c = Product_{k>=2} 1/(1 - (k+1)*(k+2)/(2*3^k)) = 6.84620607349852135789816336867607014231681538613599316638081993041973716978... . - Vaclav Kotesovec, Nov 15 2016, updated May 10 2021
G.f.: Product_{k>=1} 1 / (1 - binomial(k+2,2)*x^k). - Ilya Gutkovskiy, May 09 2021
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1)+`if`(i>n, 0, b(n-i, i)*binomial(i+2, 2))))
end:
a:= n-> b(n$2):
seq(a(n), n=0..30);
MATHEMATICA
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, b[n, i - 1] + If[i > n, 0, b[n - i, i]*Binomial[i + 2, 2]]]];
a[n_] := b[n, n];
Table[a[n], {n, 0, 30}] {* Jean-François Alcover, May 24 2018, translated from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 30 2015
STATUS
approved