A329747 -id:A329747 - cp's OEIS frontend

A333630 Least STC-number of a composition whose sequence of run-lengths has STC-number n.

0, 1, 3, 5, 7, 14, 11, 13, 15, 30, 43, 29, 23, 46, 27, 45, 31, 62, 122, 61, 87, 117, 59, 118, 47, 94, 107, 93, 55, 110, 91, 109, 63, 126, 250, 125, 343, 245, 123, 246, 175, 350, 235, 349, 119, 238, 347, 237, 95, 190, 378, 189, 215, 373, 187, 374, 111, 222, 363

Offset: 0

Gus Wiseman, Mar 31 2020

nonn

All terms belong to A003754.

A composition of n is a finite sequence of positive integers summing to n. The composition with STC-number k (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 sequence together with the corresponding compositions begins:
   0: ()
   1: (1)
   3: (1,1)
   5: (2,1)
   7: (1,1,1)
  14: (1,1,2)
  11: (2,1,1)
  13: (1,2,1)
  15: (1,1,1,1)
  30: (1,1,1,2)
  43: (2,2,1,1)
  29: (1,1,2,1)
  23: (2,1,1,1)
  46: (2,1,1,2)
  27: (1,2,1,1)
  45: (2,1,2,1)
  31: (1,1,1,1,1)
  62: (1,1,1,1,2)

Position of first appearance of n in A333627.
All of the following pertain to compositions in standard order (A066099):
- The length is A000120.
- Compositions without terms > 2 are A003754.
- Compositions without ones are ranked by A022340.
- The partial sums from the right are A048793.
- The sum is A070939.
- Adjacent equal pairs are counted by A124762.
- Equal runs are counted by A124767.
- Strict compositions are ranked by A233564.
- The partial sums from the left are A272020.
- Constant compositions are ranked by A272919.
- Normal compositions are ranked by A333217.
- Heinz number is A333219.
- Anti-runs are counted by A333381.
- Adjacent unequal pairs are counted by A333382.
- Runs-resistance is A333628.
- First appearances of run-resistances are A333629.
Cf. A029931, A098504, A114994, A225620, A228351, A238279, A242882, A318928, A329744, A329747, A333489.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
seq=Table[Total[2^(Accumulate[Reverse[Length/@Split[stc[n]]]])]/2,{n,0,1000}];
Table[Position[seq,i][[1,1]],{i,First[Split[Union[seq],#1+1==#2&]]}]-1

A332576 Number of integer partitions of n that are all 1's or whose run-lengths cover an initial interval of positive integers.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 6, 10, 12, 17, 21, 31, 35, 51, 59, 80, 97, 130, 153, 204, 244, 308, 376, 475, 564, 708, 851, 1043, 1247, 1533, 1816, 2216, 2633, 3174, 3766, 4526, 5324, 6376, 7520, 8917, 10479, 12415, 14524, 17134, 20035, 23489, 27423, 32091, 37286, 43512

Offset: 0

Gus Wiseman, Mar 05 2020

nonn

First differs from A317491 at a(11) = 31, A317491(11) = 30.

			The a(1) = 1 through a(8) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (31)    (32)     (42)      (43)       (53)
             (111)  (211)   (41)     (51)      (52)       (62)
                    (1111)  (221)    (321)     (61)       (71)
                            (311)    (411)     (322)      (332)
                            (11111)  (111111)  (331)      (422)
                                               (421)      (431)
                                               (511)      (521)
                                               (3211)     (611)
                                               (1111111)  (3221)
                                                          (4211)
                                                          (11111111)

The narrow version is A317081.
Heinz numbers of these partitions first differ from A317492 in having 420.
Not counting constant-1 sequences gives A317081.
Dominated by A332295.
Cf. A000009, A001462, A181819, A182850, A317245, A317491, A329746, A329747, A332272, A332277.

nQ[ptn_]:=Or[ptn=={},Union[ptn]=={1},Union[Length/@Split[ptn]]==Range[Max[Length/@Split[ptn]]]];
Table[Length[Select[IntegerPartitions[n],nQ]],{n,0,30}]

a(n > 1) = A317081(n) + 1.

A335376 Heinz numbers of totally co-strong integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71

Offset: 1

Gus Wiseman, Jun 04 2020

nonn

First differs from A242031 and A317257 in lacking 60.
A sequence is totally co-strong if it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and are themselves a totally co-strong sequence.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
    1: {}          16: {1,1,1,1}     32: {1,1,1,1,1}
    2: {1}         17: {7}           33: {2,5}
    3: {2}         19: {8}           34: {1,7}
    4: {1,1}       20: {1,1,3}       35: {3,4}
    5: {3}         21: {2,4}         36: {1,1,2,2}
    6: {1,2}       22: {1,5}         37: {12}
    7: {4}         23: {9}           38: {1,8}
    8: {1,1,1}     24: {1,1,1,2}     39: {2,6}
    9: {2,2}       25: {3,3}         40: {1,1,1,3}
   10: {1,3}       26: {1,6}         41: {13}
   11: {5}         27: {2,2,2}       42: {1,2,4}
   12: {1,1,2}     28: {1,1,4}       43: {14}
   13: {6}         29: {10}          44: {1,1,5}
   14: {1,4}       30: {1,2,3}       45: {2,2,3}
   15: {2,3}       31: {11}          46: {1,9}
For example, 180 is the Heinz number of (3,2,2,1,1) which has run-lengths: (1,2,2) -> (1,2) -> (1,1) -> (2) -> (1). All of these are weakly increasing, so 180 is in the sequence.

Partitions with weakly increasing run-lengths are A100883.
Totally strong partitions are counted by A316496.
The strong version is A316529.
The version for reversed partitions is (also) A316529.
These partitions are counted by A332275.
The widely normal version is A332293.
The complement is A335377.
Cf. A100882, A133808, A181819, A182850, A242031, A305732, A317256, A317258, A329747, A332291.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totcostrQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totcostrQ[Length/@Split[q]]]];
Select[Range[100],totcostrQ[Reverse[primeMS[#]]]&]

A353745 Number of runs in the ordered prime signature of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 20 2022

nonn

First differs from A071625 at a(90) = 3.
First differs from A331592 at a(90) = 3.
A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

			The prime indices of 630 are {1,2,2,3,4}, with multiplicities {1,2,1,1}, with runs {{1},{2},{1,1}}, so a(630) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)
Index entries for sequences related to prime indices in the factorization of n.

Positions of first appearances are A354233.
A001222 counts prime factors, distinct A001221.
A005361 gives product of prime signature, firsts A353500/A085629.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A181819 gives prime shadow, with an inverse A181821.
A182850/A323014 give frequency depth, counted by A225485/A325280.
Cf. A005811, A097318, A130091, A304678, A333755, A353503, A353507, A353742.
Cf. also A329747.

Table[Length[Split[Last/@If[n==1,{},FactorInteger[n]]]],{n,100}]

pis_to_runs(n) = { my(runs=List([]), f=factor(n)); for(i=1,#f~,while(f[i,2], listput(runs,primepi(f[i,1])); f[i,2]--)); (runs); };
runlengths(lista) = if(!#lista, lista, if(1==#lista, List([1]), my(runs=List([]), rl=1); for(i=1, #lista, if((i < #lista) && (lista[i]==lista[i+1]), rl++, listput(runs,rl); rl=1)); (runs)));
A353745(n) = #runlengths(runlengths(pis_to_runs(n))); \\ Antti Karttunen, Jan 20 2025

A329743 Number of compositions of n with runs-resistance n - 3.

Original entry on oeis.org

0, 0, 0, 1, 2, 6, 9, 16, 8

Offset: 0

Gus Wiseman, Nov 21 2019

A composition of n is a finite sequence of positive integers with sum n.

For the operation of taking the sequence of run-lengths of a finite sequence, runs-resistance is defined as the number of applications required to reach a singleton.

			The a(3) = 1 through a(8) = 8 compositions:
  (3)  (22)    (14)   (114)    (1123)    (12113)
       (1111)  (23)   (411)    (1132)    (12212)
               (32)   (1113)   (1141)    (13112)
               (41)   (1221)   (1411)    (21131)
               (131)  (2112)   (2122)    (21221)
               (212)  (3111)   (2212)    (31121)
                      (11112)  (2311)    (121112)
                      (11211)  (3211)    (211121)
                      (21111)  (11131)
                               (11212)
                               (11221)
                               (12211)
                               (13111)
                               (21211)
                               (111121)
                               (121111)
For example, repeatedly taking run-lengths starting with (1,2,1,1,3) gives (1,2,1,1,3) -> (1,1,2,1) -> (2,1,1) -> (1,2) -> (1,1) -> (2), which is 5 steps, and 5 = 8 - 3, so (1,2,1,1,3) is counted under a(8).

Column k = n - 3 of A329744.
Column k = 3 of A329750.
Compositions with runs-resistance 2 are A329745.
Cf. A000740, A008965, A098504, A242882, A318928, A329746, A329747, A329767.

runsres[q_]:=If[Length[q]==1,0,Length[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],runsres[#]==n-3&]],{n,10}]

A329768 Number of finite sequences of positive integers whose sum minus runs-resistance is n.

Original entry on oeis.org

8, 17, 42, 104, 242, 541, 1212, 2664, 5731, 12314

Offset: 1

Gus Wiseman, Nov 21 2019

A composition of n is a finite sequence of positive integers with sum n.

For the operation of taking the sequence of run-lengths of a finite sequence, runs-resistance is defined as the number of applications required to reach a singleton.

			The a(1) = 8 and a(2) = 17 compositions whose sum minus runs-resistance is n:
  (1)        (2)
  (1,1)      (1,3)
  (1,2)      (3,1)
  (2,1)      (1,1,1)
  (1,1,2)    (1,1,3)
  (2,1,1)    (1,2,1)
  (1,1,2,1)  (1,2,2)
  (1,2,1,1)  (2,2,1)
             (3,1,1)
             (1,1,1,2)
             (1,1,3,1)
             (1,3,1,1)
             (2,1,1,1)
             (1,1,1,2,1)
             (1,2,1,1,1)
             (1,2,1,1,2)
             (2,1,1,2,1)

Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003.

Column sums of A329750.

Cf. A000740, A008965, A098504, A242882, A318928, A329744, A329745, A329746, A329747, A329767.

A335377 Heinz numbers of non-totally co-strong integer partitions.

Original entry on oeis.org

18, 50, 54, 60, 75, 84, 90, 98, 108, 120, 126, 132, 140, 147, 150, 156, 162, 168, 198, 204, 220, 228, 234, 240, 242, 245, 250, 260, 264, 270, 276, 280, 294, 300, 306, 308, 312, 315, 324, 336, 338, 340, 342, 348, 350, 363, 364, 372, 375, 378, 380, 408, 414, 420

Offset: 1

Gus Wiseman, Jun 05 2020

nonn

A sequence is totally co-strong if it is empty, equal to (1), or its run-lengths are weakly increasing (co-strong) and are themselves a totally co-strong sequence.

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
   18: {1,2,2}        156: {1,1,2,6}        276: {1,1,2,9}
   50: {1,3,3}        162: {1,2,2,2,2}      280: {1,1,1,3,4}
   54: {1,2,2,2}      168: {1,1,1,2,4}      294: {1,2,4,4}
   60: {1,1,2,3}      198: {1,2,2,5}        300: {1,1,2,3,3}
   75: {2,3,3}        204: {1,1,2,7}        306: {1,2,2,7}
   84: {1,1,2,4}      220: {1,1,3,5}        308: {1,1,4,5}
   90: {1,2,2,3}      228: {1,1,2,8}        312: {1,1,1,2,6}
   98: {1,4,4}        234: {1,2,2,6}        315: {2,2,3,4}
  108: {1,1,2,2,2}    240: {1,1,1,1,2,3}    324: {1,1,2,2,2,2}
  120: {1,1,1,2,3}    242: {1,5,5}          336: {1,1,1,1,2,4}
  126: {1,2,2,4}      245: {3,4,4}          338: {1,6,6}
  132: {1,1,2,5}      250: {1,3,3,3}        340: {1,1,3,7}
  140: {1,1,3,4}      260: {1,1,3,6}        342: {1,2,2,8}
  147: {2,4,4}        264: {1,1,1,2,5}      348: {1,1,2,10}
  150: {1,2,3,3}      270: {1,2,2,2,3}      350: {1,3,3,4}
For example, 60 is the Heinz number of (3,2,1,1), which has run-lengths: (1,1,2) -> (2,1) -> (1,1) -> (2) -> (1). Since (2,1) is not weakly increasing, 60 is in the sequence.

Partitions with weakly increasing run-lengths are counted by A100883.
Totally strong partitions are counted by A316496.
Heinz numbers of totally strong partitions are A316529.
The version for reversed partitions is A316597.
The strong version is (also) A316597.
The alternating version is A317258.
Totally co-strong partitions are counted by A332275.
The complement is A335376.
Cf. A100882, A181819, A182850, A242031, A305732, A317256, A329747, A332291, A332293, A332339.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
totcostrQ[q_]:=Or[Length[q]<=1,And[OrderedQ[Length/@Split[q]],totcostrQ[Length/@Split[q]]]];
Select[Range[100],!totcostrQ[Reverse[primeMS[#]]]&]

cp's OEIS Frontend

A333630 Least STC-number of a composition whose sequence of run-lengths has STC-number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A332576 Number of integer partitions of n that are all 1's or whose run-lengths cover an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A335376 Heinz numbers of totally co-strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353745 Number of runs in the ordered prime signature of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A329743 Number of compositions of n with runs-resistance n - 3.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A329768 Number of finite sequences of positive integers whose sum minus runs-resistance is n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A335377 Heinz numbers of non-totally co-strong integer partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica