I might as well throw this in. There is an algorithm due to Chebyshev (1859) for determining recursion coefficients from the moments. I've already talked about the algorithm here, so I shall not repeat myself. Instead, I'll reproduce the Mathematica routine I gave in that answer:
chebAlgo[mom_?VectorQ, prec_: MachinePrecision] := Module[{n = Quotient[Length[mom], 2], si = mom, ak, bk, np, sp, s, v}, np = Precision[mom]; If[np === Infinity, np = prec]; ak[1] = mom[[2]]/First[mom]; bk[1] = First[mom]; sp = PadRight[{First[mom]}, 2 n - 1]; Do[ sp[[k - 1]] = si[[k - 1]]; Do[ v = sp[[j]]; sp[[j]] = s = si[[j]]; si[[j]] = si[[j + 1]] - ak[k - 1] s - bk[k - 1] v; , {j, k, 2 n - k + 1}]; ak[k] = si[[k + 1]]/si[[k]] - sp[[k]]/sp[[k - 1]]; bk[k] = si[[k]]/sp[[k - 1]]; , {k, 2, n}]; N[{Table[ak[k], {k, n}], Table[bk[k], {k, n}]}, np]Here for instance is how to use chebAlgo[] to generate recursion coefficients for the monic half-range Chebyshev polynomials of the first kind:
With[{a = 0}, chebAlgo[Table[Gamma[(k + 1)/2] Gamma[a + 1/2]/Gamma[a + k/2 + 1], {k, 0, 10}]/2, Infinity]] // FullSimplify

