Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

3
  • $\begingroup$ You should provide enough code and data to produce a minimal working example. Have you tried using Simplify or Factor? $\endgroup$ Commented Mar 10, 2018 at 14:55
  • $\begingroup$ @BobHanlon I added a working example. I tried using these, but maybe I didn't added them in the right place... $\endgroup$ Commented Mar 10, 2018 at 17:19
  • $\begingroup$ Perhaps, For[i = 0, i < 8, i++, poly = K[Sqrt[#]/Tanh[Sqrt[#]] &, i] /. c -> p; Print[Subscript[L, i], " = ", ((1/gcd*Plus @@ List @@ Distribute[gcd*poly]) // Together) /. Times[Rational[n_, d_], e__] :> n/primeFactorForm[d]*e]] $\endgroup$ Commented Mar 10, 2018 at 20:30