cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A060015 Sum of orders of all even permutations of n letters.

This page as a plain text file.
%I A060015 #15 Oct 14 2023 13:19:13
%S A060015 1,1,7,31,211,1411,12601,137047,1516831,18111751,223179001,2973194071,
%T A060015 46287964867,835826439631,15722804528341,292673102609791,
%U A060015 5177400032329231,102538737981192607,2284570602107946601
%N A060015 Sum of orders of all even permutations of n letters.
%H A060015 Joshua Harrington, Lenny Jones, and Alicia Lamarche, <a href="http://dx.doi.org/10.1155/2014/835125">Characterizing Finite Groups Using the Sum of the Orders of the Elements</a>, International Journal of Combinatorics, Volume 2014, Article ID 835125, 8 pages.
%e A060015 For n = 4 there is 1 even permutation (1) of order 1, 3 even permutations (12)(34) etc. of order 2 and 8 (123) etc. of order 3, for a total of 31.
%t A060015 g[list_]:=Total[list]!/Apply[Times,list]/Apply[Times,Table[Count[list,n]!,{n,1,20}]];f[list_]:=Apply[Plus,Table[Count[list,n],{n,2,20,2}]];Map[Total,Table[Map[g,Select[Partitions[n],EvenQ[f[#]]&]]*Map[Apply[LCM,#]&,Select[Partitions[n],EvenQ[f[#]]&]],{n,1,20}]]  (* _Geoffrey Critzer_, Mar 26 2013 *)
%Y A060015 Cf. A060014.
%K A060015 nonn,nice,easy
%O A060015 1,3
%A A060015 _N. J. A. Sloane_, Mar 17 2001
%E A060015 More terms from _Vladeta Jovovic_, Mar 18 2001