reviewed
approved
proposed
editing
A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]], 0]; (* From _Peter J.. C.. Moses *)_ *)
1, 3, 5, 10, 24, 27, 169, 408, 18757, 134418, 295680, 427684, 737564, 245340483, 1325085081, 8036409193, 152157373453, 191309317101, 2462443815565, 3205600889069, 9743167666007, 20076829452830
a(17)-a(22) from Giovanni Resta, Apr 07 2020
A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]], ]]], 0]; (* From Peter J.C.Moses *)
0]; (* From Peter J.C.Moses *)
A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]],
k = -1; A240619 = {};
For[i = 1, i <= 2000, i++,
If[A240606[i] > k, k = A240606[i]; AppendTo[A240619, i]]]; A240619 (* Robert Price, Mar 26 2020 *)
