A307496 Expansion of Product_{k>=1} (1 + ((1 - sqrt(1 - 4*x))/2)^k).
1, 1, 2, 6, 18, 57, 187, 629, 2156, 7502, 26427, 94053, 337653, 1221260, 4445892, 16277089, 59893052, 221370725, 821499759, 3059620076, 11432831745, 42848889316, 161032785057, 606710026659, 2291156662259, 8670805904186, 32879697168622, 124910667052026, 475357627716839, 1811931609379926
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 29; CoefficientList[Series[Product[(1 + ((1 - Sqrt[1 - 4 x])/2)^k), {k, 1, nmax}], {x, 0, nmax}], x] nmax = 29; CoefficientList[Series[Product[1/(1 - ((1 - Sqrt[1 - 4 x])/2)^(2 k - 1)), {k, 1, nmax}], {x, 0, nmax}], x] Join[{1}, Table[1/n Sum[Binomial[2n - k - 1, n - k] k PartitionsQ[k], {k, n}], {n, 29}]]
Formula
G.f.: Product_{k>=1} 1/(1 - ((1 - sqrt(1 - 4*x))/2)^(2*k-1)).
Sum_{n>=0} a(n)*(x*(1 - x))^n = g.f. of A000009.
a(n) = (1/n) * Sum_{k=1..n} binomial(2*n-k-1,n-k)*k*A000009(k) for n > 0.
a(n) ~ c * 4^n / n^(3/2), where c = 1/sqrt(Pi) * Sum_{k>=0} k*A000009(k)/2^(k+1) = 1.12333545392999500455446757207126193339498222754079045166328600452997969... - Vaclav Kotesovec, Jan 28 2020, extended Aug 01 2022
Comments