A325878 Number of maximal subsets of {1..n} such that every orderless pair of distinct elements has a different sum.

1, 1, 1, 1, 4, 5, 8, 22, 40, 56, 78, 124, 222, 390, 616, 892, 1220, 1620, 2182, 3042, 4392

Offset

0,5

Links

Table of n, a(n) for n=0..20.

Example

The a(1) = 1 through a(6) = 8 subsets:
  {1}  {1,2}  {1,2,3}  {1,2,3}  {1,2,4}    {1,2,3,5}
                       {1,2,4}  {2,3,4}    {1,2,3,6}
                       {1,3,4}  {2,4,5}    {1,2,4,6}
                       {2,3,4}  {1,2,3,5}  {1,3,4,5}
                                {1,3,4,5}  {1,3,5,6}
                                           {1,4,5,6}
                                           {2,3,4,6}
                                           {2,4,5,6}

Mathematica

fasmax[y_]:=Complement[y, Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]], UnsameQ@@Plus@@@Subsets[Union[#], {2}]&]]], {n, 0, 10}]

Crossrefs

The subset case is A196723.

The maximal case is A325878.

The integer partition case is A325857.

The strict integer partition case is A325877.

Heinz numbers of the counterexamples are given by A325991.

Cf. A002033, A108917, A143823, A143824, A276024.

Cf. A325858, A325859, A325864, A325865, A325867, A325879, A325880.

Sequence in context: A275929 A240794 A171938 * A352396 A072808 A104884

Adjacent sequences: A325875 A325876 A325877 * A325879 A325880 A325881

Keyword

nonn,more

Author

Gus Wiseman, Jun 02 2019

Status

approved