A326174 - OEIS

A326174

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

1, 2, 4, 7, 13, 25, 50, 98, 186, 366, 739, 1457, 2822, 5589, 11258, 22304, 43629, 86658, 174257, 346180, 680955, 1354829, 2721296, 5414787, 10689261, 21290468, 42730228, 85112982, 168430866, 335726276, 673421519, 1342347992, 2661053796, 5307062034, 10640664164

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..46

EXAMPLE

The a(1) = 1 through a(5) = 13 subsets:

{1} {2} {3} {1,4} {3,5}

{1,2} {1,3} {2,4} {4,5}

{2,3} {3,4} {1,2,5}

{1,2,3} {1,2,4} {1,3,5}

{1,3,4} {1,4,5}

{2,3,4} {2,3,5}

{1,2,3,4} {2,4,5}

{3,4,5}

{1,2,3,5}

{1,2,4,5}

{1,3,4,5}

{2,3,4,5}

{1,2,3,4,5}

MATHEMATICA

Table[Length[Select[Subsets[Range[n]], MemberQ[#, n]&&Plus@@#>=Plus@@Complement[Range[n], #]&]], {n, 10}]

CROSSREFS

Cf. A053632, A057567, A057568, A059529, A063865, A326152, A326173, A326175.

Sequence in context: A119266 A102026 A103204 * A366109 A017995 A251654

Adjacent sequences: A326171 A326172 A326173 * A326175 A326176 A326177

KEYWORD

nonn

AUTHOR

Gus Wiseman, Jun 11 2019

EXTENSIONS

a(21)-a(42) from Bert Dobbelaere, Jun 22 2019

STATUS

approved