This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A240619 #20 Apr 08 2020 08:04:24 %S A240619 1,3,5,10,24,27,169,408,18757,134418,295680,427684,737564,245340483, %T A240619 1325085081,8036409193,152157373453,191309317101,2462443815565, %U A240619 3205600889069,9743167666007,20076829452830 %N A240619 Positions of records in A240606. %C A240619 The corresponding records are 0,2,3,4,5,6,7,12,16,... %t A240619 A240606[n_] := Count[First[Split[Mod[Last[Transpose[FactorInteger[(2*n)!]]], 2]]], 0]; (* From _Peter J. C. Moses_ *) %t A240619 k = -1; A240619 = {}; %t A240619 For[i = 1, i <= 2000, i++, %t A240619 If[A240606[i] > k, k = A240606[i]; AppendTo[A240619, i]]]; A240619 (* _Robert Price_, Mar 26 2020 *) %Y A240619 Cf. A240537, A240606. %K A240619 nonn,more %O A240619 1,2 %A A240619 _Vladimir Shevelev_, Apr 09 2014 %E A240619 a(10)-a(16) from _Hiroaki Yamanouchi_, Sep 30 2014 %E A240619 a(17)-a(22) from _Giovanni Resta_, Apr 07 2020