OFFSET
1,2
MATHEMATICA
CIP10 = CycleIndexPolynomial[SymmetricGroup[10], Array[x, 10]]; a[n_] := CIP10 /. x[k_] -> DivisorSigma[k, n]; Array[a, 18] (* Jean-François Alcover, Nov 04 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Feb 08 2002
STATUS
approved