cp's OEIS Frontend

A326174 Number of subsets of {1..n} containing n whose sum is greater than or equal to the sum of their complement.

%I A326174 #14 Oct 16 2020 19:30:07
%S A326174 1,2,4,7,13,25,50,98,186,366,739,1457,2822,5589,11258,22304,43629,
%T A326174 86658,174257,346180,680955,1354829,2721296,5414787,10689261,21290468,
%U A326174 42730228,85112982,168430866,335726276,673421519,1342347992,2661053796,5307062034,10640664164
%N A326174 Number of subsets of {1..n} containing n whose sum is greater than or equal to the sum of their complement.
%H A326174 Fausto A. C. Cariboni, <a href="/A326174/b326174.txt">Table of n, a(n) for n = 1..46</a>
%e A326174 The a(1) = 1 through a(5) = 13 subsets:
%e A326174   {1}  {2}    {3}      {1,4}      {3,5}
%e A326174        {1,2}  {1,3}    {2,4}      {4,5}
%e A326174               {2,3}    {3,4}      {1,2,5}
%e A326174               {1,2,3}  {1,2,4}    {1,3,5}
%e A326174                        {1,3,4}    {1,4,5}
%e A326174                        {2,3,4}    {2,3,5}
%e A326174                        {1,2,3,4}  {2,4,5}
%e A326174                                   {3,4,5}
%e A326174                                   {1,2,3,5}
%e A326174                                   {1,2,4,5}
%e A326174                                   {1,3,4,5}
%e A326174                                   {2,3,4,5}
%e A326174                                   {1,2,3,4,5}
%t A326174 Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Plus@@#>=Plus@@Complement[Range[n],#]&]],{n,10}]
%Y A326174 Cf. A053632, A057567, A057568, A059529, A063865, A326152, A326173, A326175.
%K A326174 nonn
%O A326174 1,2
%A A326174 _Gus Wiseman_, Jun 11 2019
%E A326174 a(21)-a(42) from _Bert Dobbelaere_, Jun 22 2019