Skip to content

Instantly share code, notes, and snippets.

@VladimirReshetnikov

VladimirReshetnikov/Polynomials.nb

Created November 7, 2016 05:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save VladimirReshetnikov/86f06d800799c396446b6b34fad3fe8a to your computer and use it in GitHub Desktop.
Save VladimirReshetnikov/86f06d800799c396446b6b34fad3fe8a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Polynomials.nb
ClearAll[p, n];
p[1] = 1;
p[n_] := p[n] = Expand[FunctionExpand[Sum[Binomial[n-1, k-1] QBinomial[n-2, k-1, q] p[k] p[n-k] q^(n-k-1), {k, 1, n-1}]]];
For[n = 1, True, n++, Print[p[n]]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment