A372120 Numbers k such that the k-th composition in standard order is biquanimous.

0, 3, 10, 11, 13, 14, 15, 36, 37, 38, 39, 41, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 136, 137, 138, 139, 140, 141, 142, 143, 145, 147, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 162, 163, 165, 166, 167, 168, 169

Offset: 1

Author

Gus Wiseman, Apr 20 2024

Keywords

• nonn

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 and ranked by A357976.

Examples

			The terms and corresponding compositions begin:
   0: ()
   3: (1,1)
  10: (2,2)
  11: (2,1,1)
  13: (1,2,1)
  14: (1,1,2)
  15: (1,1,1,1)
  36: (3,3)
  37: (3,2,1)
  38: (3,1,2)
  39: (3,1,1,1)
  41: (2,3,1)
  43: (2,2,1,1)
  44: (2,1,3)
  45: (2,1,2,1)
  46: (2,1,1,2)
  47: (2,1,1,1,1)
  50: (1,3,2)
  51: (1,3,1,1)
  52: (1,2,3)
  53: (1,2,2,1)
  54: (1,2,1,2)
		

Crossrefs

These compositions are counted by A064914.

The unordered version (integer partitions) is A357976, counted by A002219.

The unordered complement is A371731, counted by A371795, even case A006827.

The complement is A372119, counted by A371956.

A237258 (aerated) counts biquanimous strict partitions, ranks A357854.

A321142 and A371794 count non-biquanimous strict partitions.

A371791 counts biquanimous sets, differences A232466.

A371792 counts non-biquanimous sets, differences A371793.

Cf. A027187, A035470, A357879, A367094, A371781, A371782, A371783.

Programs

Mathematica

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],MemberQ[Total/@Subsets[stc[#]], Total[stc[#]]/2]&]