A240619 Positions of records in A240606.

1, 3, 5, 10, 24, 27, 169, 408, 18757, 134418, 295680, 427684, 737564, 245340483, 1325085081, 8036409193, 152157373453, 191309317101, 2462443815565, 3205600889069, 9743167666007, 20076829452830

Offset: 1

Author

Vladimir Shevelev, Apr 09 2014

Keywords

• nonn
• more

Comments

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

Crossrefs

Cf. A240537, A240606.

Programs

Mathematica

A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]], 0]; (* From Peter J. C. Moses *)
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 *)

Extensions

a(10)-a(16) from Hiroaki Yamanouchi, Sep 30 2014

a(17)-a(22) from Giovanni Resta, Apr 07 2020