OFFSET
1,2
COMMENTS
The corresponding records are 0,2,3,4,5,6,7,12,16,...
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++,
CROSSREFS
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