A329750 -id:A329750 - cp's OEIS frontend

A329744 Triangle read by rows where T(n,k) is the number of compositions of n > 0 with runs-resistance k, 0 <= k <= n - 1.

1, 1, 1, 1, 1, 2, 1, 2, 3, 2, 1, 1, 6, 6, 2, 1, 3, 15, 9, 4, 0, 1, 1, 22, 22, 16, 2, 0, 1, 3, 41, 38, 37, 8, 0, 0, 1, 2, 72, 69, 86, 26, 0, 0, 0, 1, 3, 129, 124, 175, 78, 2, 0, 0, 0, 1, 1, 213, 226, 367, 202, 14, 0, 0, 0, 0, 1, 5, 395, 376, 750, 469, 52, 0, 0, 0, 0, 0

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.

			Triangle begins:
   1
   1   1
   1   1   2
   1   2   3   2
   1   1   6   6   2
   1   3  15   9   4   0
   1   1  22  22  16   2   0
   1   3  41  38  37   8   0   0
   1   2  72  69  86  26   0   0   0
   1   3 129 124 175  78   2   0   0   0
   1   1 213 226 367 202  14   0   0   0   0
   1   5 395 376 750 469  52   0   0   0   0   0
Row n = 6 counts the following compositions:
  (6)  (33)      (15)    (114)    (1131)
       (222)     (24)    (411)    (1311)
       (111111)  (42)    (1113)   (11121)
                 (51)    (1221)   (12111)
                 (123)   (2112)
                 (132)   (3111)
                 (141)   (11112)
                 (213)   (11211)
                 (231)   (21111)
                 (312)
                 (321)
                 (1122)
                 (1212)
                 (2121)
                 (2211)

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

Row sums are A000079.
Column k = 1 is A032741.
Column k = 2 is A329745.
Column k = n - 2 is A329743.
The version for partitions is A329746.
The version with rows reversed is A329750.
Cf. A000740, A008965, A098504, A242882, A318928, A329747.

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

A329747 Runs-resistance of the sequence of prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 21 2019

nonn

First differs from A304455 at a(90) = 3, A304455(90) = 4.
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.
A prime index of n is a number m such that prime(m) divides n. The sequence of prime indices of n is row n of A112798.

			We have (1,2,2,3) -> (1,2,1) -> (1,1,1) -> (3), so a(90) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003.
Index entries for sequences related to prime indices in the factorization of n.

The version for partitions is A329746.
The version for compositions is A329744.
The version for binary words is A329767.
The version for binary expansion is A318928.
Cf. A008578 (positions of 0's), A056239, A112798, A329745, A329750.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
runsres[q_]:=Length[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1;
Table[runsres[primeMS[n]],{n,50}]

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)));
A329747(n) = { my(runs=pis_to_runs(n)); for(i=0,oo,if(#runs<=1, return(i), runs = runlengths(runs))); }; \\ Antti Karttunen, Jan 20 2025

More terms from Antti Karttunen, Jan 20 2025

A319411 Triangle read by rows: T(n,k) = number of binary vectors of length n with runs-resistance k (1 <= k <= n).

Original entry on oeis.org

2, 2, 2, 2, 2, 4, 2, 4, 6, 4, 2, 2, 12, 12, 4, 2, 6, 30, 18, 8, 0, 2, 2, 44, 44, 32, 4, 0, 2, 6, 82, 76, 74, 16, 0, 0, 2, 4, 144, 138, 172, 52, 0, 0, 0, 2, 6, 258, 248, 350, 156, 4, 0, 0, 0, 2, 2, 426, 452, 734, 404, 28, 0, 0, 0, 0, 2, 10, 790, 752, 1500, 938, 104, 0, 0, 0, 0, 0

Offset: 1

N. J. A. Sloane, Sep 20 2018

"Runs-resistance" is defined in A318928.
Row sums are 2,4,8,16,... (the binary vectors may begin with 0 or 1).
This is similar to A329767 but without the k = 0 column and with a different row n = 1. - Gus Wiseman, Nov 25 2019

			Triangle begins:
2,
2, 2,
2, 2, 4,
2, 4, 6, 4,
2, 2, 12, 12, 4,
2, 6, 30, 18, 8, 0,
2, 2, 44, 44, 32, 4, 0,
2, 6, 82, 76, 74, 16, 0, 0,
2, 4, 144, 138, 172, 52, 0, 0, 0,
2, 6, 258, 248, 350, 156, 4, 0, 0, 0,
2, 2, 426, 452, 734, 404, 28, 0, 0, 0, 0,
2, 10, 790, 752, 1500, 938, 104, 0, 0, 0, 0, 0,
...
Lenormand gives the first 20 rows.
The calculation of row 4 is as follows.
We may assume the first bit is a 0, and then double the answers.
vector / runs / steps to reach a single number:
0000 / 4 / 1
0001 / 31 -> 11 -> 2 / 3
0010 / 211 -> 12 -> 11 -> 2 / 4
0011 / 22 -> 2 / 2
0100 / 112 -> 21 -> 11 -> 2 / 4
0101 / 1111 -> 4 / 2
0110 / 121 -> 111 -> 3 / 3
0111 / 13 -> 11 -> 2 / 3
and we get 1 (once), 2 (twice), 3 (three times) and 4 (twice).
So row 4 is: 2,4,6,4.

Hiroaki Yamanouchi, Table of n, a(n) for n = 1..1830
Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003. Apparently unpublished. This is a scanned copy of the version that the author sent to me in 2003.

Row sums are A000079.
Column k = 2 is 2 * A032741 = A319410.
Column k = 3 is 2 * A329745 (because runs-resistance 2 for compositions corresponds to runs-resistance 3 for binary words).
The version for compositions is A329744.
The version for partitions is A329746.
The number of nonzero entries in row n > 0 is A319412(n).
The runs-resistance of the binary expansion of n is A318928.
Cf. A096365, A225485, A245563, A319413, A319414, A319415, A325280, A329747, A329750, A329767, A329870.

runsresist[q_]:=If[Length[q]==1,1,Length[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1];
Table[Length[Select[Tuples[{0,1},n],runsresist[#]==k&]],{n,10},{k,n}] (* Gus Wiseman, Nov 25 2019 *)

A329745 Number of compositions of n with runs-resistance 2.

Original entry on oeis.org

0, 0, 2, 3, 6, 15, 22, 41, 72, 129, 213, 395, 660, 1173, 2031, 3582, 6188, 10927, 18977, 33333, 58153, 101954, 178044, 312080, 545475, 955317, 1670990, 2925711, 5118558, 8960938, 15680072, 27447344, 48033498, 84076139, 147142492, 257546234, 450748482, 788937188

Offset: 1

Gus Wiseman, Nov 21 2019

nonn

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.
These are non-constant compositions with equal run-lengths (A329738).

			The a(3) = 2 through a(6) = 15 compositions:
  (1,2)  (1,3)    (1,4)    (1,5)
  (2,1)  (3,1)    (2,3)    (2,4)
         (1,2,1)  (3,2)    (4,2)
                  (4,1)    (5,1)
                  (1,3,1)  (1,2,3)
                  (2,1,2)  (1,3,2)
                           (1,4,1)
                           (2,1,3)
                           (2,3,1)
                           (3,1,2)
                           (3,2,1)
                           (1,1,2,2)
                           (1,2,1,2)
                           (2,1,2,1)
                           (2,2,1,1)

Andrew Howroyd, Table of n, a(n) for n = 1..1000

Column k = 2 of A329744.
Column k = n - 2 of A329750.
Cf. A000740, A003242, A008965, A098504, A242882, A318928, A329743, A329746, A329747, A329767.

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

seq(n)={my(b=Vec(1/(1 - sum(k=1, n, x^k/(1+x^k) + O(x*x^n)))-1)); vector(n, k, sumdiv(k, d, b[d]-1))} \\ Andrew Howroyd, Dec 30 2020

a(n) = A329738(n) - A000005(n).

a(n) = Sum_{d|n} (A003242(d) - 1). - Andrew Howroyd, Dec 30 2020

Terms a(21) and beyond from Andrew Howroyd, Dec 30 2020

A329767 Triangle read by rows where T(n,k) is the number of binary words of length n >= 0 with runs-resistance k, 0 <= k <= n.

Original entry on oeis.org

1, 2, 0, 0, 2, 2, 0, 2, 2, 4, 0, 2, 4, 6, 4, 0, 2, 2, 12, 12, 4, 0, 2, 6, 30, 18, 8, 0, 0, 2, 2, 44, 44, 32, 4, 0, 0, 2, 6, 82, 76, 74, 16, 0, 0, 0, 2, 4, 144, 138, 172, 52, 0, 0, 0, 0, 2, 6, 258, 248, 350, 156, 4, 0, 0, 0, 0, 2, 2, 426, 452, 734, 404, 28, 0, 0, 0, 0

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.
Except for the k = 0 column and the n = 0 and n = 1 rows, this is the triangle appearing on page 3 of Lenormand, which is A319411. Unlike A318928, we do not here require that a(n) >= 1.
The n = 0 row is chosen to ensure that the row-sums are A000079, although the empty word arguably has indeterminate runs-resistance.

			Triangle begins:
   1
   2   0
   0   2   2
   0   2   2   4
   0   2   4   6   4
   0   2   2  12  12   4
   0   2   6  30  18   8   0
   0   2   2  44  44  32   4   0
   0   2   6  82  76  74  16   0   0
   0   2   4 144 138 172  52   0   0   0
   0   2   6 258 248 350 156   4   0   0   0
   0   2   2 426 452 734 404  28   0   0   0   0
For example, row n = 4 counts the following words:
  0000  0011  0001  0010
  1111  0101  0110  0100
        1010  0111  1011
        1100  1000  1101
              1001
              1110

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

Row sums are A000079.
Column k = 2 is A319410.
Column k = 3 is 2 * A329745.
The version for compositions is A329744.
The version for partitions is A329746.
The number of nonzero entries in row n > 0 is A319412(n).
The runs-resistance of the binary expansion of n is A318928.
Cf. A001037, A096365, A225485, A245563, A319411, A325280, A329747, A329750.

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

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.

cp's OEIS Frontend

A329744 Triangle read by rows where T(n,k) is the number of compositions of n > 0 with runs-resistance k, 0 <= k <= n - 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A329747 Runs-resistance of the sequence of prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A319411 Triangle read by rows: T(n,k) = number of binary vectors of length n with runs-resistance k (1 <= k <= n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A329745 Number of compositions of n with runs-resistance 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A329767 Triangle read by rows where T(n,k) is the number of binary words of length n >= 0 with runs-resistance k, 0 <= k <= n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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