|
%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
|
