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}]]