OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = A061199(n,2*n).
a(n) ~ exp(2*Pi*sqrt(n/3))/(8*n*sqrt(3)). - Vaclav Kotesovec, Nov 27 2013
EXAMPLE
a(1) = 1: [2].
a(2) = 4: [2,1,1], [2,2], [3,1], [4].
a(3) = 9: [2,2,1,1], [2,2,2], [3,1,1,1], [3,2,1], [3,3], [4,1,1], [4,2], [5,1], [6].
a(4) = 19: [2,2,1,1,1,1], [2,2,2,1,1], [2,2,2,2], [3,2,1,1,1], [3,2,2,1], [3,3,1,1], [3,3,2], [4,1,1,1,1], [4,2,1,1], [4,2,2], [4,3,1], [4,4], [5,1,1,1], [5,2,1], [5,3], [6,1,1], [6,2], [7,1], [8].
MAPLE
b:= proc(n, i, k) option remember; `if`(n=0, 1,
`if`(i>n, 0, add(b(n-i*j, i+1, min(k,
iquo(n-i*j, i+1))), j=0..min(n/i, k))))
end:
a:= n-> b(2*n, 1, n):
seq(a(n), n=0..50);
MATHEMATICA
b[n_, i_, k_] := b[n, i, k] = If[n == 0, 1, If[i>n, 0, Sum[b[n-i*j, i+1, Min[k, Quotient[n-i*j, i+1]]], {j, 0, Min[n/i, k]}]]]; a[n_] := b[2*n, 1, n]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Feb 11 2015, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Nov 27 2013
STATUS
approved