A137150 Degree of Lagrange resolvent of polynomial of composite degree.
1, 3, 60, 1260, 6720, 90720, 9979200, 1037836800, 10897286400, 163459296000, 59281238016000, 15205637551104000, 202741834014720000, 5109094217170944000, 3231502092360622080000, 31022420086661971968000
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..300
Programs
-
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 *)
Comments