|
|
A137150
|
|
Degree of Lagrange resolvent of polynomial of composite degree.
|
|
2
|
|
|
1, 3, 60, 1260, 6720, 90720, 9979200, 1037836800, 10897286400, 163459296000, 59281238016000, 15205637551104000, 202741834014720000, 5109094217170944000, 3231502092360622080000, 31022420086661971968000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Ratio: degree of symmetric group of composite order n divided by order metacyclic group of composite order n.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = {}; Do[If[PrimeQ[n], [null], AppendTo[a, n!/(n EulerPhi[n])]], {n, 1, 30}]; a
With[{nn=30}, #!/(# EulerPhi[#])&/@Complement[Range[nn], Prime[Range[ PrimePi[ nn]]]]] (* Harvey P. Dale, Jul 05 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|