login
Number of subsets of {1..n} containing n and some element equal to the sum of two distinct others.
14

%I #10 Jan 13 2024 16:46:38

%S 0,0,0,1,2,7,17,40,87,196,413,875,1812,3741,7640,15567,31493,63666,

%T 128284,257977,518045,1039478,2083719,4174586,8359837,16735079,

%U 33493780,67020261,134090173,268250256,536609131,1073358893,2146942626,4294183434,8588837984,17178273355

%N Number of subsets of {1..n} containing n and some element equal to the sum of two distinct others.

%H Andrew Howroyd, <a href="/A364756/b364756.txt">Table of n, a(n) for n = 0..75</a>

%F First differences of A088809.

%e The subset S = {1,3,6,8} has pair-sums {4,7,9,11,14}, which are disjoint from S, so it is not counted under a(8).

%e The subset {2,3,4,6} has pair-sum 2 + 4 = 6, so is counted under a(6).

%e The a(0) = 0 through a(6) = 17 subsets:

%e . . . {1,2,3} {1,3,4} {1,4,5} {1,5,6}

%e {1,2,3,4} {2,3,5} {2,4,6}

%e {1,2,3,5} {1,2,3,6}

%e {1,2,4,5} {1,2,4,6}

%e {1,3,4,5} {1,2,5,6}

%e {2,3,4,5} {1,3,4,6}

%e {1,2,3,4,5} {1,3,5,6}

%e {1,4,5,6}

%e {2,3,4,6}

%e {2,3,5,6}

%e {2,4,5,6}

%e {1,2,3,4,6}

%e {1,2,3,5,6}

%e {1,2,4,5,6}

%e {1,3,4,5,6}

%e {2,3,4,5,6}

%e {1,2,3,4,5,6}

%t Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Intersection[#,Total/@Subsets[#,{2}]]!={}&]],{n,0,10}]

%Y Partial sums are A088809, non-binary A364534.

%Y With re-usable parts we have differences of A093971, complement A288728.

%Y The complement with n is counted by A364755, partial sums A085489(n) - 1.

%Y Cf. A000079, A007865, A050291, A051026, A103580, A151897, A236912, A326080, A326083, A364272.

%K nonn

%O 0,5

%A _Gus Wiseman_, Aug 11 2023

%E a(16) onwards added (using A088809) by _Andrew Howroyd_, Jan 13 2024