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,2

Comments

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

Links

Table of n, a(n) for n=1..22.

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 *)

Crossrefs

Cf. A240537, A240606.

Sequence in context: A173232 A132332 A209001 * A171867 A243513 A002039

Adjacent sequences: A240616 A240617 A240618 * A240620 A240621 A240622

Keyword

nonn,more

Author

Vladimir Shevelev, Apr 09 2014

Extensions

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

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

Status

approved