OFFSET
0,4
REFERENCES
J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].
V. Jovovic, Some combinatorial characteristics of symmetric and alternating groups (in Russian), Belgrade, 1980, unpublished.
MATHEMATICA
(* a3 = A000793 a4 = A051704 *) a3[n_] := Max[LCM @@@ IntegerPartitions[n]]; a4[n_] := (pp = Reap[ Do[ pk = p^k; If[pk <= n, Sow[pk]], {p, Prime[ Range[2, PrimePi[n]]]}, {k, 1, Ceiling[ Log[3, n]]}]][[2, 1]]; sel = Select[ IntegerPartitions[n, All, pp], Length[#] == Length[ Union[#] && !MatchQ[#, {___, x_, ___, y_, ___} /; GCD[x, y] != 1]] &]; Max[Times @@@ sel]); a4[0] = 1; a4[1] = a4[2] = a4[4] = a4[6] = 0; a[n_] := Max[a3[n - 2], a4[n - 1], a4[n]]; a[0] = a[1] = a[2] = 1; Table[a[n], {n, 0, 47}] (* Jean-François Alcover, Sep 11 2012, from formula *)
PROG
(PARI) a(n)={my(m=1); forpart(p=n, if(sum(i=1, #p, p[i]-1)%2==0, m=max(m, lcm(Vec(p))))); m} \\ Andrew Howroyd, Jul 03 2018
CROSSREFS
KEYWORD
nonn,nice,easy
AUTHOR
STATUS
approved