%I #44 Sep 08 2022 08:46:16
%S 0,0,0,2,2,4,4,10,10,14,14,24,24,30,30,44,44,52,52,70,70,80,80,102,
%T 102,114,114,140,140,154,154,184,184,200,200,234,234,252,252,290,290,
%U 310,310,352,352,374,374,420,420,444,444,494,494,520,520,574,574,602
%N Sum of the even numbers among the larger parts of the partitions of n into two parts.
%C Essentially, repeated values of A152749.
%C Sum of the lengths of the distinct rectangles with even length and integer width such that L + W = n, W <= L. For example, a(10) = 14; the rectangles are 2 X 8 and 4 X 6, so 8 + 6 = 14. - _Wesley Ivan Hurt_, Nov 04 2017
%H Colin Barker, <a href="/A272104/b272104.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%H <a href="/index/Rec#order_09">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,2,-2,0,0,-1,1).
%F a(n) = (1 + 3*(2n-3-(-1)^n)/2 + 3*(2n-3-(-1)^n)^2/8 + (2n-1-(-1)^n) * (-1)^((2n+1-(-1)^n)/4)/2) / 8.
%F a(n) = Sum_{i=ceiling(n/2)..n-1} i * (i+1 mod 2).
%F a(n) = Sum_{i=1..floor(n/2)} (n-i) * (n-i+1 mod 2).
%F a(2n+1) = a(2n+2) = A152749(n) = 2*A001318(n).
%F G.f.: 2*x^3*(1-x+x^2)*(1+x+x^2) / ((1-x)^3*(1+x)^2*(1+x^2)^2). - _Colin Barker_, Apr 20 2016
%F From _Wesley Ivan Hurt_, Apr 22 2016, Apr 23 2016: (Start)
%F a(2n+2)-a(2n) = A109043(n) = 2*A026741(n).
%F a(4n) = A049450(n) = 2*A000326(n),
%F a(8n) = A126964(n) = 2*A049452(n),
%F a(12n) = 2*A268351(n).
%F a(n+1) = A001318(n) - A272212(n+1). (End)
%F E.g.f.: ((2 + 3*x*(1 + x))*cosh(x) - 2*(cos(x) + x*cos(x) + x*sin(x)) + (-1 + 3*(-1 + x)*x)*sinh(x))/16. - _Ilya Gutkovskiy_, Apr 29 2016
%e a(5) = 4; the partitions of 5 into 2 parts are (4,1),(3,2) and the sum of the larger even parts is 4.
%e a(6) = 4; the partitions of 6 into 2 parts are (5,1),(4,2),(3,3) and the sum of the larger even parts is also 4.
%p A272104:=n->(1+3*(2*n-3-(-1)^n)/2+3*(2*n-3-(-1)^n)^2/8+(2*n-1-(-1)^n)*(-1)^((2*n+1-(-1)^n)/4)/2)/8: seq(A272104(n), n=0..100);
%t Table[(1 + 3(2n-3-(-1)^n)/2 + 3(2n-3-(-1)^n)^2/8 + (2n-1-(-1)^n) * (-1)^((2n+1-(-1)^n)/4)/2) / 8, {n, 0, 50}]
%t Table[Total@ Map[First, IntegerPartitions[n, {2}] /. {k_, _} /; OddQ@ k -> Nothing], {n, 0, 57}] (* _Michael De Vlieger_, Apr 20 2016, Version 10.2 *)
%o (Magma) [(1+3*(2*n-3-(-1)^n)/2+3*(2*n-3-(-1)^n)^2/8+(2*n-1-(-1)^n)*(-1)^((2*n+1-(-1)^n) div 4)/2)/8 : n in [0..50]]
%o (PARI) concat(vector(3), Vec(2*x^3*(1-x+x^2)*(1+x+x^2)/((1-x)^3*(1+x)^2*(1+x^2)^2) + O(x^50))) \\ _Colin Barker_, Apr 20 2016
%Y Cf. A000326, A001318, A026741, A049450, A049452, A109043, A126964, A152749, A268351, A272212.
%K nonn,easy
%O 0,4
%A _Wesley Ivan Hurt_, Apr 20 2016