Anonymous user
Paraffins: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|REXX}}: added whitespace, used a smaller font for the output.) |
|||
Line 1,522:
{{works with|Mathematica|9.0}}
Using the formula on OEIS.
<lang mathematica>
▲ x*CycleIndexPolynomial[SymmetricGroup[4],
G000598[n_] := Nest[1 + x s[3, #, n]
G000602[n_] :=
x s[4, #, n] -
▲ 2 ComposeSeries[#1, x^3 + O[x]^#2]), {x, 0, #2}] &,
A000602[n_] := SeriesCoefficient[G000602[n], n];
A000602List[n_] := CoefficientList[G000602[n], x];
|