%I #20 Apr 08 2020 08:04:24

%S 1,3,5,10,24,27,169,408,18757,134418,295680,427684,737564,245340483,

%T 1325085081,8036409193,152157373453,191309317101,2462443815565,

%U 3205600889069,9743167666007,20076829452830

%N Positions of records in A240606.

%C The corresponding records are 0,2,3,4,5,6,7,12,16,...

%t A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]], 0]; (* From _Peter J. C. Moses_ *)

%t k = -1; A240619 = {};

%t For[i = 1, i <= 2000, i++,

%t If[A240606[i] > k, k = A240606[i]; AppendTo[A240619, i]]]; A240619 (* _Robert Price_, Mar 26 2020 *)

%Y Cf. A240537, A240606.

%K nonn,more

%O 1,2

%A _Vladimir Shevelev_, Apr 09 2014

%E a(10)-a(16) from _Hiroaki Yamanouchi_, Sep 30 2014

%E a(17)-a(22) from _Giovanni Resta_, Apr 07 2020