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 A237449 #13 Feb 20 2024 04:19:14
%S A237449 0,0,1,1,1,4,4,5,5,5,7,7,7,7,13,13,14,14,14,17,17,18,18,18,20,20,20,
%T A237449 20,25,25,26,26,26,28,28,28,28,31,31,31,31,31,41,41,42,42,42,45,45,46,
%U A237449 46,46,48,48,48,48,54,54,55,55,55,58,58,59,59,59,61,61,61,61
%N A237449 a(n) = n - A236855(n).
%H A237449 Antti Karttunen, <a href="/A237449/b237449.txt">Table of n, a(n) for n = 0..16796</a>
%F A237449 a(n) = n - A236855(n).
%t A237449 A236855list[m_] := With[{r = 2*Range[2, m]-1}, Reverse[Map[Total[r-#] &, Select[Subsets[Range[2, 2*m-1], {m-1}], Min[r-#] >= 0 &]]]];
%t A237449 With[{m = 6}, Range[0, CatalanNumber[m]-1] - A236855list[m]] (* Generates C(m) terms *) (* _Paolo Xausa_, Feb 20 2024 *)
%o A237449 (Scheme) (define (A237449 n) (- n (A236855 n)))
%Y A237449 Cf. A236855, A239903, A236859.
%Y A237449 Cf. also A011371, A219641, A219651, A227190, A227191, A236840.
%K A237449 nonn
%O A237449 0,6
%A A237449 _Antti Karttunen_, Apr 18 2014