A228351 -id:A228351 - cp's OEIS frontend

A374519 Numbers k such that the leaders of anti-runs in the k-th composition in standard order (A066099) are identical.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 44, 45, 48, 49, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 72, 73, 76, 77, 80, 81, 82, 84, 85

Offset: 1

Gus Wiseman, Aug 01 2024

nonn

The leaders of anti-runs in a sequence are obtained by splitting it into maximal consecutive anti-runs (sequences with no adjacent equal terms) and taking the first term of each.

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.

			The 346th composition in standard order is (2,2,1,2,2), with anti-runs ((2),(2,1,2),(2)), with leaders (2,2,2), so 346 is in the sequence.

Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

Positions of constant rows in A374515.
Compositions of this type are counted by A374517.
The complement is A374520.
For distinct instead of identical leaders we have A374638, counted by A374518.
Other types of runs (instead of anti-):
- For identical runs we have A272919, counted by A000005.
- For weakly increasing runs we have A374633, counted by A374631.
- For strictly increasing runs we have A374685, counted by A374686.
- For weakly decreasing runs we have A374744, counted by A374742.
- For strictly decreasing runs we have A374759, counted by A374760.
A065120 gives leaders of standard compositions.
A106356 counts compositions by number of maximal anti-runs.
A238279 counts compositions by number of maximal runs.
A238424 counts partitions whose first differences are an anti-run.
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Anti-runs are ranked by A333489, counted by A003242.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
Six types of maximal runs:
- Count: A124766, A124765, A124768, A124769, A333381, A124767.
- Leaders: A374629, A374740, A374683, A374757, A374515, A374251.
- Rank: A375123, A375124, A375125, A375126, A375127, A373948.
Cf. A029931, A114994, A228351, A233564, A238343, A373949.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],SameQ@@First/@Split[stc[#],UnsameQ]&]

A022340 Even Fibbinary numbers (A003714); also 2*Fibbinary(n).

Original entry on oeis.org

0, 2, 4, 8, 10, 16, 18, 20, 32, 34, 36, 40, 42, 64, 66, 68, 72, 74, 80, 82, 84, 128, 130, 132, 136, 138, 144, 146, 148, 160, 162, 164, 168, 170, 256, 258, 260, 264, 266, 272, 274, 276, 288, 290, 292, 296, 298, 320, 322, 324, 328, 330, 336, 338, 340, 512

Offset: 0

Marc LeBrun

nonn

Positions of ones in binomial(3k+2,k+1)/(3k+2) modulo 2 (A085405). - Paul D. Hanna, Jun 29 2003
Construction: start with strings S(0)={0}, S(1)={2}; for k>=2, concatenate all prior strings excluding S(k-1) and add 2^k to each element in the resulting string to obtain S(k); this sequence is the concatenation of all such generated strings: {S(0),S(1),S(2),...}. Example: for k=5, concatenate {S(0),S(1),S(2),S(3)} = {0, 2, 4, 8,10}; add 2^5 to each element to obtain S(5)={32,34,38,40,42}. - Paul D. Hanna, Jun 29 2003
From Gus Wiseman, Apr 08 2020: (Start)
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. This gives a bijective correspondence between nonnegative integers and integer compositions. This sequence lists all numbers k such that the k-th composition in standard order has no ones. For example, the sequence together with the corresponding compositions begins:
()          80: (2,5)        260: (6,3)
(2)         82: (2,3,2)      264: (5,4)
(3)         84: (2,2,3)      266: (5,2,2)
(4)        128: (8)          272: (4,5)
(2,2)      130: (6,2)        274: (4,3,2)
(5)        132: (5,3)        276: (4,2,3)
(3,2)      136: (4,4)        288: (3,6)
(2,3)      138: (4,2,2)      290: (3,4,2)
(6)        144: (3,5)        292: (3,3,3)
(4,2)      146: (3,3,2)      296: (3,2,4)
(3,3)      148: (3,2,3)      298: (3,2,2,2)
(2,4)      160: (2,6)        320: (2,7)
(2,2,2)    162: (2,4,2)      322: (2,5,2)
(7)        164: (2,3,3)      324: (2,4,3)
(5,2)      168: (2,2,4)      328: (2,3,4)
(4,3)      170: (2,2,2,2)    330: (2,3,2,2)
(3,4)      256: (9)          336: (2,2,5)
(3,2,2)    258: (7,2)        338: (2,2,3,2)
(End)

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Equals 2 * A003714.
Cf. A006013, A001045, A085405, A085407.
Compositions with no ones are counted by A212804.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Compositions without terms > 2 are A003754.
- Compositions without ones are A022340 (this sequence).
- Sum is A070939.
- Compositions with no twos are A175054.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Runs-resistance is A333628.
Cf. A066099, A124767, A228351, A318928, A333218.

a022340 = (* 2) . a003714 -- Reinhard Zumkeller, Feb 03 2015

f[n_Integer] := Block[{k = Ceiling[ Log[ GoldenRatio, n*Sqrt[5]]], t = n, fr = {}}, While[k > 1, If[t >= Fibonacci[k], AppendTo[fr, 1]; t = t - Fibonacci[k], AppendTo[fr, 0]]; k-- ]; FromDigits[fr, 2]]; Select[f /@ Range[0, 95], EvenQ[ # ] &] (* Robert G. Wilson v, Sep 18 2004 *)
Select[Range[2, 512, 2], BitAnd[#, 2#] == 0 &] (* Alonso del Arte, Jun 18 2012 *)

from itertools import count, islice
def A022340_gen(startvalue=0): # generator of terms >= startvalue
    return filter(lambda n:not n&(n>>1),count(max(0,startvalue+(startvalue&1)),2))
A022340_list = list(islice(A022340_gen(),30)) # Chai Wah Wu, Sep 07 2022

def A022340(n):
    tlist, s = [1,2], 0
    while tlist[-1]+tlist[-2] <= n: tlist.append(tlist[-1]+tlist[-2])
    for d in tlist[::-1]:
        if d <= n:
            s += 1
            n -= d
        s <<= 1
    return s # Chai Wah Wu, Apr 24 2025

For n>0, a(F(n))=2^n, a(F(n)-1)=A001045(n+2)-1, where F(n) is the n-th Fibonacci number with F(0)=F(1)=1.

a(n) + a(n)/2 = a(n) XOR a(n)/2, see A106409. - Reinhard Zumkeller, May 02 2005

Edited by Ralf Stephan, Sep 01 2004

A333220 The number k such that the k-th composition in standard order consists of the prime indices of n in weakly increasing order.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 8, 7, 10, 12, 16, 14, 32, 24, 20, 15, 64, 26, 128, 28, 40, 48, 256, 30, 36, 96, 42, 56, 512, 52, 1024, 31, 80, 192, 72, 58, 2048, 384, 160, 60, 4096, 104, 8192, 112, 84, 768, 16384, 62, 136, 100, 320, 224, 32768, 106, 144, 120, 640, 1536

Offset: 1

Gus Wiseman, Mar 17 2020

nonn

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.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The sequence of terms together with the corresponding compositions begins:
      0: ()             128: (8)             2048: (12)
      1: (1)             28: (1,1,3)          384: (1,8)
      2: (2)             40: (2,4)            160: (2,6)
      3: (1,1)           48: (1,5)             60: (1,1,1,3)
      4: (3)            256: (9)             4096: (13)
      6: (1,2)           30: (1,1,1,2)        104: (1,2,4)
      8: (4)             36: (3,3)           8192: (14)
      7: (1,1,1)         96: (1,6)            112: (1,1,5)
     10: (2,2)           42: (2,2,2)           84: (2,2,3)
     12: (1,3)           56: (1,1,4)          768: (1,9)
     16: (5)            512: (10)           16384: (15)
     14: (1,1,2)         52: (1,2,3)           62: (1,1,1,1,2)
     32: (6)           1024: (11)             136: (4,4)
     24: (1,4)           31: (1,1,1,1,1)      100: (1,3,3)
     20: (2,3)           80: (2,5)            320: (2,7)
     15: (1,1,1,1)      192: (1,7)            224: (1,1,6)
     64: (7)             72: (3,4)          32768: (16)
     26: (1,2,2)         58: (1,1,2,2)        106: (1,2,2,2)

The version with prime indices taken in weakly decreasing order is A233249.
A partial inverse is A333219.
Cf. A000120, A029931, A048793, A056239, A066099, A070939, A112798, A114994, A225620, A228351, A333221.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
fbi[q_]:=If[q=={},0,Total[2^q]/2];
Table[fbi[Accumulate[Reverse[primeMS[n]]]],{n,100}]

A000120(a(n)) = A056239(n).

A334437 Heinz number of the n-th reversed integer partition in graded lexicographical order.

Original entry on oeis.org

1, 2, 4, 3, 8, 6, 5, 16, 12, 10, 9, 7, 32, 24, 20, 18, 14, 15, 11, 64, 48, 40, 36, 28, 30, 22, 27, 21, 25, 13, 128, 96, 80, 72, 56, 60, 44, 54, 42, 50, 26, 45, 33, 35, 17, 256, 192, 160, 144, 112, 120, 88, 108, 84, 100, 52, 90, 66, 70, 34, 81, 63, 75, 39, 55, 49, 19

Offset: 0

Gus Wiseman, May 03 2020

A permutation of the positive integers.
Reversed integer partitions are finite weakly increasing sequences of positive integers. The non-reversed version is A334434.
This is the graded reverse of the so-called "Mathematica" order (A080577, A129129).
The Heinz number of a reversed integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and reversed partitions.
Also Heinz numbers of partitions in colexicographic order (cf. A211992).
As a triangle with row lengths A000041, the sequence starts {{1},{2},{4,3},{8,6,5},...}, so offset is 0.

			The sequence of terms together with their prime indices begins:
    1: {}              11: {5}                 44: {1,1,5}
    2: {1}             64: {1,1,1,1,1,1}       54: {1,2,2,2}
    4: {1,1}           48: {1,1,1,1,2}         42: {1,2,4}
    3: {2}             40: {1,1,1,3}           50: {1,3,3}
    8: {1,1,1}         36: {1,1,2,2}           26: {1,6}
    6: {1,2}           28: {1,1,4}             45: {2,2,3}
    5: {3}             30: {1,2,3}             33: {2,5}
   16: {1,1,1,1}       22: {1,5}               35: {3,4}
   12: {1,1,2}         27: {2,2,2}             17: {7}
   10: {1,3}           21: {2,4}              256: {1,1,1,1,1,1,1,1}
    9: {2,2}           25: {3,3}              192: {1,1,1,1,1,1,2}
    7: {4}             13: {6}                160: {1,1,1,1,1,3}
   32: {1,1,1,1,1}    128: {1,1,1,1,1,1,1}    144: {1,1,1,1,2,2}
   24: {1,1,1,2}       96: {1,1,1,1,1,2}      112: {1,1,1,1,4}
   20: {1,1,3}         80: {1,1,1,1,3}        120: {1,1,1,2,3}
   18: {1,2,2}         72: {1,1,1,2,2}         88: {1,1,1,5}
   14: {1,4}           56: {1,1,1,4}          108: {1,1,2,2,2}
   15: {2,3}           60: {1,1,2,3}           84: {1,1,2,4}
Triangle begins:
    1
    2
    4   3
    8   6   5
   16  12  10   9   7
   32  24  20  18  14  15  11
   64  48  40  36  28  30  22  27  21  25  13
  128  96  80  72  56  60  44  54  42  50  26  45  33  35  17
This corresponds to the following tetrangle:
                  0
                 (1)
               (11)(2)
             (111)(12)(3)
        (1111)(112)(13)(22)(4)
  (11111)(1112)(113)(122)(14)(23)(5)

Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
The constructive version is A026791 (triangle).
The length-sensitive version is A185974.
Compositions under the same order are A228351 (triangle).
The version for non-reversed partitions is A334434.
The dual version (sum/revlex) is A334436.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in increasing-length colexicographic order (sum/length/colex) are A036037.
Graded reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Graded lexicographically ordered partitions are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Graded Heinz numbers are given by A215366.
Sorting partitions by Heinz number gives A296150.
Partitions in dual Abramowitz-Stegun (sum/length/revlex) order are A334439.
Cf. A056239, A066099, A129129, A228531, A333219, A333220, A334301, A334302, A334433, A334435, A334438.

lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
Table[Times@@Prime/@#&/@Sort[Sort/@IntegerPartitions[n],lexsort],{n,0,8}]

A001222(a(n)) = A193173(n).

A087117 Number of zeros in the longest string of consecutive zeros in the binary representation of n.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 1, 0, 3, 2, 1, 1, 2, 1, 1, 0, 4, 3, 2, 2, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 0, 5, 4, 3, 3, 2, 2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 1, 4, 3, 2, 2, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 0, 6, 5, 4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 4, 3, 2, 2, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 5, 4, 3, 3, 2, 2

Offset: 0

Reinhard Zumkeller, Aug 14 2003

The following four statements are equivalent: a(n) = 0; n = 2^k - 1 for some k > 0; A087116(n) = 0; A023416(n) = 0.

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. Then a(k) is the maximum part of this composition, minus one. The maximum part is A333766(k). - Gus Wiseman, Apr 09 2020

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Index entries for sequences related to binary expansion of n

Cf. A023416, A007088, A007814.
Cf. A025480, A038374, A090046, A090047, A090048, A090049, A090050.
Positions of zeros are A000225.
Positions of terms <= 1 are A003754.
Positions of terms > 0 are A062289.
Positions of first appearances are A131577.
The version for prime indices is A252735.
The proper maximum is A333766.
The version for minimum is A333767.
Maximum prime index is A061395.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Runs are counted by A124767.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Runs-resistance is A333628.
- Weakly decreasing compositions are A114994.
- Weakly increasing compositions are A225620.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
Cf. A029931, A048793, A061395, A087117, A228351, A328594, A333217, A333218, A333219, A333767, A333768.

import Data.List (unfoldr, group)
a087117 0       = 1
a087117 n
  | null $ zs n = 0
  | otherwise   = maximum $ map length $ zs n where
  zs = filter ((== 0) . head) . group .
       unfoldr (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 2)
-- Reinhard Zumkeller, May 01 2012

A087117 := proc(n)
    local d,l,zlen ;
    if n = 0 then
        return 1 ;
    end if;
    d := convert(n,base,2) ;
    for l from nops(d)-1 to 0 by -1 do
        zlen := [seq(0,i=1..l)] ;
        if verify(zlen,d,'sublist') then
            return l ;
        end if;
    end do:
    return 0 ;
end proc; # R. J. Mathar, Nov 05 2012

nz[n_]:=Max[Length/@Select[Split[IntegerDigits[n,2]],MemberQ[#,0]&]]; Array[nz,110,0]/.-\[Infinity]->0 (* Harvey P. Dale, Sep 05 2017 *)

h(n)=if(n<2, return(0)); my(k=valuation(n,2)); if(k, max(h(n>>k), k), n++; n>>=valuation(n,2); h(n-1))
a(n)=if(n,h(n),1) \\ Charles R Greathouse IV, Apr 06 2022

a(n) = max(A007814(n), a(A025480(n-1))) for n >= 2. - Robert Israel, Feb 19 2017
a(2n+1) = a(n) (n>=1); indeed, the binary form of 2n+1 consists of the binary form of n with an additional 1 at the end - Emeric Deutsch, Aug 18 2017
For n > 0, a(n) = A333766(n) - 1. - Gus Wiseman, Apr 09 2020

A333768 Minimum part of the n-th composition in standard order. a(0) = 0.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 1, 1, 4, 1, 2, 1, 1, 1, 1, 1, 5, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 1, 2, 1, 3, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, 2, 1, 3, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1

Offset: 0

Gus Wiseman, Apr 06 2020

nonn

One plus the shortest run of 0's after a 1 in the binary expansion of n > 0.

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. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The 148th composition in standard order is (3,2,3), so a(148) = 2.

Positions of first appearances (ignoring index 0) are A000079.
Positions of terms > 1 are A022340.
The version for prime indices is A055396.
The  maximum part is given by A333766.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Compositions without 1's are A022340.
- Sum is A070939.
- Product is A124758.
- Runs are counted by A124767.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Runs-resistance is A333628.
- Weakly decreasing compositions are A114994.
- Weakly increasing compositions are A225620.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
Cf. A029931, A048793, A087117, A228351, A328594, A333217, A333218, A333219, A333632, A333767.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[If[n==0,0,Min@@stc[n]],{n,0,100}]

For n > 0, a(n) = A333767(n) + 1.

A335238 Numbers k such that the distinct parts of the k-th composition in standard order (A066099) are not pairwise coprime, where a singleton is not coprime unless it is (1).

Original entry on oeis.org

0, 2, 4, 8, 10, 16, 32, 34, 36, 40, 42, 64, 69, 70, 81, 88, 98, 104, 128, 130, 136, 138, 139, 141, 142, 160, 162, 163, 168, 170, 177, 184, 197, 198, 209, 216, 226, 232, 256, 260, 261, 262, 274, 276, 277, 278, 279, 282, 283, 285, 286, 288, 290, 292, 296, 321

Offset: 1

Gus Wiseman, May 28 2020

nonn

We use the Mathematica definition for CoprimeQ, so a singleton is not considered coprime unless it is (1).

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.

			The sequence together with the corresponding compositions begins:
    0: ()          88: (2,1,4)      177: (2,1,4,1)
    2: (2)         98: (1,4,2)      184: (2,1,1,4)
    4: (3)        104: (1,2,4)      197: (1,4,2,1)
    8: (4)        128: (8)          198: (1,4,1,2)
   10: (2,2)      130: (6,2)        209: (1,2,4,1)
   16: (5)        136: (4,4)        216: (1,2,1,4)
   32: (6)        138: (4,2,2)      226: (1,1,4,2)
   34: (4,2)      139: (4,2,1,1)    232: (1,1,2,4)
   36: (3,3)      141: (4,1,2,1)    256: (9)
   40: (2,4)      142: (4,1,1,2)    260: (6,3)
   42: (2,2,2)    160: (2,6)        261: (6,2,1)
   64: (7)        162: (2,4,2)      262: (6,1,2)
   69: (4,2,1)    163: (2,4,1,1)    274: (4,3,2)
   70: (4,1,2)    168: (2,2,4)      276: (4,2,3)
   81: (2,4,1)    170: (2,2,2,2)    277: (4,2,2,1)

The complement is A333228.
Not ignoring repeated parts gives A335239.
Singleton or pairwise coprime partitions are counted by A051424.
Singleton or pairwise coprime sets are ranked by A087087.
Coprime partitions are counted by A327516.
Non-coprime partitions are counted by A335240.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Product is A124758.
- Reverse is A228351
- GCD is A326674.
- Heinz number is A333219.
- LCM is A333226.
- Coprime compositions are A333227.
- Compositions whose distinct parts are coprime are A333228.
- Number of distinct parts is A334028.
Cf. A007360, A048793, A101268, A291166, A302569, A326675, A335235, A335236, A335237.

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

A333769 Irregular triangle read by rows where row k is the sequence of run-lengths of the k-th composition in standard order.

Original entry on oeis.org

1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 3, 1, 5, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1

Offset: 0

Gus Wiseman, Apr 10 2020

A composition of n is a finite sequence of positive integers summing to n. 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.

			The standard compositions and their run-lengths:
   0:        () -> ()
   1:       (1) -> (1)
   2:       (2) -> (1)
   3:     (1,1) -> (2)
   4:       (3) -> (1)
   5:     (2,1) -> (1,1)
   6:     (1,2) -> (1,1)
   7:   (1,1,1) -> (3)
   8:       (4) -> (1)
   9:     (3,1) -> (1,1)
  10:     (2,2) -> (2)
  11:   (2,1,1) -> (1,2)
  12:     (1,3) -> (1,1)
  13:   (1,2,1) -> (1,1,1)
  14:   (1,1,2) -> (2,1)
  15: (1,1,1,1) -> (4)
  16:       (5) -> (1)
  17:     (4,1) -> (1,1)
  18:     (3,2) -> (1,1)
  19:   (3,1,1) -> (1,2)
For example, the 119th composition is (1,1,2,1,1,1), so row 119 is (2,1,3).

Row sums are A000120.
Row lengths are A124767.
Row k is the A333627(k)-th standard composition.
A triangle counting compositions by runs-resistance is A329744.
All of the following pertain to compositions in standard order (A066099):
- Partial sums from the right are A048793.
- Sum is A070939.
- Adjacent equal pairs are counted by A124762.
- Strict compositions are A233564.
- Partial sums from the left are A272020.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Heinz number is A333219.
- Runs-resistance is A333628.
- First appearances of run-resistances are A333629.
- Combinatory separations are A334030.
Cf. A029931, A098504, A114994, A181819, A182850, A225620, A228351, A238279, A242882, A318928, A329747, A333489, A333630.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length/@Split[stc[n]],{n,0,30}]

A124760 Number of rises for compositions in standard order.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 1, 2

Offset: 0

Franklin T. Adams-Watters, Nov 06 2006

The standard order of compositions is given by A066099.
A114994 seems to give the positions of zeros. - Antti Karttunen, Jul 09 2017
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. a(n) is one fewer than the number of maximal weakly decreasing runs in this composition. Alternatively, a(n) is the number of strict ascents in the same composition. For example, the weakly decreasing runs of the 1234567th composition are ((3,2,1),(2,2,1),(2),(5,1,1,1)), so a(1234567) = 4 - 1 = 3. The 3 strict ascents together with the weak descents are: 3 >= 2 >= 1 < 2 >= 2 >= 1 < 2 < 5 >= 1 >= 1 >= 1. - Gus Wiseman, Apr 08 2020

			Composition number 11 is 2,1,1; 2>=1>=1, so a(11) = 0.
The table starts:
  0
  0
  0 0
  0 0 1 0
  0 0 0 0 1 1 1 0
  0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 0
  0 0 0 0 0 0 1 0 1 1 0 0 1 1 1 0 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1 0

Antti Karttunen, Table of n, a(n) for n = 0..16383

Cf. A066099, A124761, A124762, A124763, A124764, A011782 (row lengths), A045883 (row sums), A233249, A333213, A333380.
Compositions of n with k strict ascents are A238343.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Weakly decreasing compositions are A114994.
- Weakly decreasing runs are counted by A124765.
- Weakly increasing runs are counted by A124766.
- Equal runs are counted by A124767.
- Strictly increasing runs are counted by A124768.
- Strictly decreasing runs are counted by A124769.
- Weakly increasing compositions are A225620.
- Reverse is A228351 (triangle).
- Strict compositions are A233564.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
- Anti-runs are counted by A333381.
- Adjacent unequal pairs are counted by A333382.
- Anti-runs are A333489.
- Runs-resistance is A333628.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length[Select[Partition[stc[n],2,1],Less@@#&]],{n,0,100}] (* Gus Wiseman, Apr 08 2020 *)

A066099row(n) = {my(v=vector(n), j=0, k=0); while(n>0, k++; if(n%2==1, v[j++]=k; k=0); n\=2);  vector(j, i, v[j-i+1]); } \\ Returns empty for n=0. - From code of Franklin T. Adams-Watters in A066099.
A124760(n) = { my(v=A066099row(n), r=0); for(i=2,length(v),r += (v[i]>v[i-1])); (r); }; \\ Antti Karttunen, Jul 09 2017

For a composition b(1),...,b(k), a(n) = Sum_{i = 1 .. k-1} [b(i+1) > b(i)], where [ ] is Iverson bracket, giving in this case 1 only if b(i+1) > b(i), and 0 otherwise. - Formula clarified by Antti Karttunen, Jul 10 2017

For n > 0, a(n) = A124765(n) - 1. - Gus Wiseman, Apr 08 2020

A335236 Numbers k such that the k-th composition in standard order (A066099) is not a singleton nor pairwise coprime.

Original entry on oeis.org

0, 10, 21, 22, 26, 34, 36, 40, 42, 43, 45, 46, 53, 54, 58, 69, 70, 73, 74, 76, 81, 82, 84, 85, 86, 87, 88, 90, 91, 93, 94, 98, 100, 104, 106, 107, 109, 110, 117, 118, 122, 130, 136, 138, 139, 141, 142, 146, 147, 148, 149, 150, 153, 154, 156, 160, 162, 163, 164

Offset: 1

Gus Wiseman, May 28 2020

nonn

These are compositions whose product is strictly greater than the LCM of their parts.

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.

			The sequence together with the corresponding compositions begins:
    0: ()            74: (3,2,2)        109: (1,2,1,2,1)
   10: (2,2)         76: (3,1,3)        110: (1,2,1,1,2)
   21: (2,2,1)       81: (2,4,1)        117: (1,1,2,2,1)
   22: (2,1,2)       82: (2,3,2)        118: (1,1,2,1,2)
   26: (1,2,2)       84: (2,2,3)        122: (1,1,1,2,2)
   34: (4,2)         85: (2,2,2,1)      130: (6,2)
   36: (3,3)         86: (2,2,1,2)      136: (4,4)
   40: (2,4)         87: (2,2,1,1,1)    138: (4,2,2)
   42: (2,2,2)       88: (2,1,4)        139: (4,2,1,1)
   43: (2,2,1,1)     90: (2,1,2,2)      141: (4,1,2,1)
   45: (2,1,2,1)     91: (2,1,2,1,1)    142: (4,1,1,2)
   46: (2,1,1,2)     93: (2,1,1,2,1)    146: (3,3,2)
   53: (1,2,2,1)     94: (2,1,1,1,2)    147: (3,3,1,1)
   54: (1,2,1,2)     98: (1,4,2)        148: (3,2,3)
   58: (1,1,2,2)    100: (1,3,3)        149: (3,2,2,1)
   69: (4,2,1)      104: (1,2,4)        150: (3,2,1,2)
   70: (4,1,2)      106: (1,2,2,2)      153: (3,1,3,1)
   73: (3,3,1)      107: (1,2,2,1,1)    154: (3,1,2,2)

Gus Wiseman, Statistics, classes, and transformations of standard compositions

The version for prime indices is A316438.
The version for binary indices is A335237.
The complement is A335235.
The version with singletons allowed is A335239.
Binary indices are pairwise coprime or a singleton: A087087.
The version counting partitions is 1 + A335240.
All of the following pertain to compositions in standard order:
- Length is A000120.
- The parts are row k of A066099.
- Sum is A070939.
- Product is A124758.
- Reverse is A228351
- GCD is A326674.
- Heinz number is A333219.
- LCM is A333226.
Cf. A007360, A048793, A051424, A101268, A272919, A291166, A302569, A326675, A333227, A333228, A335238.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!(Length[stc[#]]==1||CoprimeQ@@stc[#])&]

cp's OEIS Frontend

A374519 Numbers k such that the leaders of anti-runs in the k-th composition in standard order (A066099) are identical.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A022340 Even Fibbinary numbers (A003714); also 2*Fibbinary(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Python

Python

Formula

Extensions

A333220 The number k such that the k-th composition in standard order consists of the prime indices of n in weakly increasing order.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A334437 Heinz number of the n-th reversed integer partition in graded lexicographical order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A087117 Number of zeros in the longest string of consecutive zeros in the binary representation of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula

A333768 Minimum part of the n-th composition in standard order. a(0) = 0.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A335238 Numbers k such that the distinct parts of the k-th composition in standard order (A066099) are not pairwise coprime, where a singleton is not coprime unless it is (1).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A333769 Irregular triangle read by rows where row k is the sequence of run-lengths of the k-th composition in standard order.

Views