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