A333256 Numbers k such that the k-th composition in standard order is strictly decreasing.

0, 1, 2, 4, 5, 8, 9, 16, 17, 18, 32, 33, 34, 37, 64, 65, 66, 68, 69, 128, 129, 130, 132, 133, 137, 256, 257, 258, 260, 261, 264, 265, 274, 512, 513, 514, 516, 517, 520, 521, 529, 530, 549, 1024, 1025, 1026, 1028, 1029, 1032, 1033, 1040, 1041, 1042, 1058, 1061

Offset: 1

Author

Gus Wiseman, Mar 20 2020

Keywords

• nonn

Comments

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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.

Examples

			The sequence of positive terms together with the corresponding compositions begins:
     1: (1)         128: (8)         517: (7,2,1)
     2: (2)         129: (7,1)       520: (6,4)
     4: (3)         130: (6,2)       521: (6,3,1)
     5: (2,1)       132: (5,3)       529: (5,4,1)
     8: (4)         133: (5,2,1)     530: (5,3,2)
     9: (3,1)       137: (4,3,1)     549: (4,3,2,1)
    16: (5)         256: (9)        1024: (11)
    17: (4,1)       257: (8,1)      1025: (10,1)
    18: (3,2)       258: (7,2)      1026: (9,2)
    32: (6)         260: (6,3)      1028: (8,3)
    33: (5,1)       261: (6,2,1)    1029: (8,2,1)
    34: (4,2)       264: (5,4)      1032: (7,4)
    37: (3,2,1)     265: (5,3,1)    1033: (7,3,1)
    64: (7)         274: (4,3,2)    1040: (6,5)
    65: (6,1)       512: (10)       1041: (6,4,1)
    66: (5,2)       513: (9,1)      1042: (6,3,2)
    68: (4,3)       514: (8,2)      1058: (5,4,2)
    69: (4,2,1)     516: (7,3)      1061: (5,3,2,1)
		

Crossrefs

Strictly increasing runs are counted by A124768.

The normal case is A246534.

The weakly decreasing version is A114994.

The weakly increasing version is A225620.

The unequal version is A233564.

The equal version is A272919.

The strictly increasing version is A333255.

Cf. A000120, A029931, A048793, A066099, A070939, A124769, A228351, A233249, A333217, A333256, A333380.

Programs

Mathematica

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