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.
%I A093458 #20 Jan 10 2024 04:57:48
%S A093458 1,2,8,24,144,720,5760,40320,362880,3991680,39916800,518918400,
%T A093458 6227020800,105859353600,1482030950400,28158588057600,422378820864000,
%U A093458 9714712879872000,155435406077952000,4507626776260608000
%N A093458 Partial products of A073846.
%C A093458 a(n-2) is the number of elements in the largest conjugacy class of A_n, the alternating group on n letters. Cf. A059171. [_Geoffrey Critzer_, Mar 26 2013]
%F A093458 a(n) = prime(1) * composite(1) * prime(2) * composite(2) * ... * prime(n/2) * composite(n/2) if n is even else a(n) = prime(1) * composite(1) * prime(2) * composite(2) * ... * prime((n+1)/2). a(0) = 1.
%t A093458 g[list_]:=Total[list]! / Apply[Times,list] / Apply[Times,Table[Count[list,n]!,{n,1,20}]];
%t A093458 f[list_]:=Apply[Plus,Table[Count[list,n],{n,2,20,2}]];
%t A093458 Drop[Table[Max[Map[g,Select[Partitions[n],EvenQ[f[#]]&]]],{n,1,20}]]
%t A093458 (* _Geoffrey Critzer_, Mar 26 2013 *)
%Y A093458 Cf. A073846, A093459.
%K A093458 less,nonn
%O A093458 0,2
%A A093458 _Amarnath Murthy_, Apr 03 2004
%E A093458 More terms from _David Wasserman_, Sep 28 2006