A353846 -id:A353846 - cp's OEIS frontend

A353859 Triangle read by rows where T(n,k) is the number of integer compositions of n with composition run-sum trajectory of length k.

1, 0, 1, 0, 1, 1, 0, 3, 1, 0, 0, 4, 2, 2, 0, 0, 7, 7, 2, 0, 0, 0, 14, 14, 4, 0, 0, 0, 0, 23, 29, 12, 0, 0, 0, 0, 0, 39, 56, 25, 8, 0, 0, 0, 0, 0, 71, 122, 53, 10, 0, 0, 0, 0, 0, 0, 124, 246, 126, 16, 0, 0, 0, 0, 0, 0, 0, 214, 498, 264, 48, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Jun 02 2022

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sums transformation (or condensation, represented by A353847) until an anti-run is reached. For example, the trajectory (2,4,2,1,1) -> (2,4,2,2) -> (2,4,4) -> (2,8) is counted under T(10,4).

			Triangle begins:
   1
   0   1
   0   1   1
   0   3   1   0
   0   4   2   2   0
   0   7   7   2   0   0
   0  14  14   4   0   0   0
   0  23  29  12   0   0   0   0
   0  39  56  25   8   0   0   0   0
   0  71 122  53  10   0   0   0   0   0
   0 124 246 126  16   0   0   0   0   0   0
   0 214 498 264  48   0   0   0   0   0   0   0
For example, row n = 5 counts the following compositions:
  (5)    (113)    (1121)
  (14)   (122)    (1211)
  (23)   (221)
  (32)   (311)
  (41)   (1112)
  (131)  (2111)
  (212)  (11111)

Column k = 1 is A003242, ranked by A333489, complement A261983.
Row sums are A011782.
Positive row-lengths are A070939.
The version for partitions is A353846, ranked by A353841.
This statistic (trajectory length) is ranked by A353854, firsts A072639.
Counting by length of last part instead of number of parts gives A353856.
A333627 ranks the run-lengths of standard compositions.
A353847 represents the run-sums of a composition, partitions A353832.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions.
Cf. A237685, A238279, A304442, A304465, A318928, A325277, A333755, A353848, A353850, A353852, A353855, A353858.

rsc[y_]:=If[y=={},{},NestWhileList[Total/@Split[#]&,y,MatchQ[#,{_,x_,x_,_}]&]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Length[rsc[#]]==k&]],{n,0,10},{k,0,n}]

A354584 Irregular triangle read by rows where row k lists the run-sums of the multiset (weakly increasing sequence) of prime indices of n.

Original entry on oeis.org

1, 2, 2, 3, 1, 2, 4, 3, 4, 1, 3, 5, 2, 2, 6, 1, 4, 2, 3, 4, 7, 1, 4, 8, 2, 3, 2, 4, 1, 5, 9, 3, 2, 6, 1, 6, 6, 2, 4, 10, 1, 2, 3, 11, 5, 2, 5, 1, 7, 3, 4, 2, 4, 12, 1, 8, 2, 6, 3, 3, 13, 1, 2, 4, 14, 2, 5, 4, 3, 1, 9, 15, 4, 2, 8, 1, 6, 2, 7, 2, 6, 16

Offset: 1

Gus Wiseman, Jun 17 2022

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.

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4).

			Triangle begins:
  .
  1
  2
  2
  3
  1 2
  4
  3
  4
  1 3
  5
  2 2
  6
  1 4
  2 3
For example, the prime indices of 630 are {1,2,2,3,4}, so row 630 is (1,4,3,4).

Positions of first appearances are A308495 plus 1.
The version for compositions is A353932, ranked by A353847.
Classes:
- singleton rows: A000961
- constant rows: A353833, nonprime A353834, counted by A304442
- strict rows: A353838, counted by A353837, complement A353839
Statistics:
- row lengths: A001221
- row sums: A056239
- row products: A304117
- row ranks (as partitions): A353832
- row image sizes: A353835
- row maxima: A353862
- row minima: A353931
A001222 counts prime factors with multiplicity.
A112798 and A296150 list partitions by rank.
A124010 gives prime signature, sorted A118914.
A300273 ranks collapsible partitions, counted by A275870.
A353840-A353846 pertain to partition run-sum trajectory.
A353861 counts distinct sums of partial runs of prime indices.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A000040, A002110, A027748, A071625, A073093, A181819, A238279/A333755, A353850, A353852, A353867.

Table[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]*k],{n,30}]

A353839 Numbers whose prime indices do not have all distinct run-sums.

Original entry on oeis.org

12, 40, 60, 63, 84, 112, 120, 126, 132, 144, 156, 204, 228, 252, 276, 280, 300, 315, 325, 336, 348, 351, 352, 360, 372, 420, 440, 444, 492, 504, 516, 520, 560, 564, 588, 630, 636, 650, 660, 675, 680, 693, 702, 708, 720, 732, 760, 780, 804, 819, 832, 840, 852

Offset: 1

Gus Wiseman, Jun 04 2022

nonn

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.

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4).

			The terms together with their prime indices begin:
   12: {1,1,2}
   40: {1,1,1,3}
   60: {1,1,2,3}
   63: {2,2,4}
   84: {1,1,2,4}
  112: {1,1,1,1,4}
  120: {1,1,1,2,3}
  126: {1,2,2,4}
  132: {1,1,2,5}
  144: {1,1,1,1,2,2}
  156: {1,1,2,6}
  204: {1,1,2,7}
  228: {1,1,2,8}
  252: {1,1,2,2,4}
  276: {1,1,2,9}
  280: {1,1,1,3,4}
  300: {1,1,2,3,3}
  315: {2,2,3,4}

For equal run-sums we have A353833, counted by A304442, nonprime A353834.
The complement is A353838, counted by A353837.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A098859 counts partitions with distinct multiplicities, ranked by A130091.
A165413 counts distinct run-sums in binary expansion.
A300273 ranks collapsible partitions, counted by A275870.
A351014 counts distinct runs in standard compositions.
A353832 represents taking run-sums of a partition, compositions A353847.
A353840-A353846 pertain to partition run-sum trajectory.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353862 gives the greatest run-sum of prime indices, least A353931.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A002110, A071625, A073093, A116608, A118914, A124010, A353861, A353867.

Select[Range[100],!UnsameQ@@Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]&]

A353861 Number of distinct weak run-sums of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 23 2022

nonn

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.

A weak run-sum of a sequence is the sum of any consecutive constant subsequence.

			The prime indices of 72 are {1,1,1,2,2}, with weak runs {}, {1}, {1,1}, {1,1,1}, {2}, {2,2}, which have sums 0, 1, 2, 3, 2, 4, of which 5 are distinct, so a(72) = 5.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of 2's are A000040.
Positions of first appearances are A000079.
The strong version is A353835, firsts A002110.
Partitions with distinct run-sums are ranked by A353838, counted by A353837.
The strong version for compositions is A353849.
The greatest run-sum is given by A353862, least A353931.
A001222 counts prime factors, distinct A001221.
A005811 counts runs in binary expansion.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A165413 counts distinct run-lengths in binary expansion, sums A353929.
A300273 ranks collapsible partitions, counted by A275870.
A353832 represents taking run-sums of a partition, compositions A353847.
A353833 ranks partitions with all equal run-sums, counted by A304442.
A353840-A353846 pertain to partition run-sum trajectory.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
Cf. A071625, A073093, A116608, A175413, A181819, A333755, A353834, A353839, A353866, A353867, A353930.

Table[Length[Union@@Cases[FactorInteger[n],{p_,k_}:>Range[0,k]*PrimePi[p]]],{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); };
A353861(n) = if(1==n,n,my(pruns = pis_to_runs(n), runsum = 0, runsums = List([])); for(i=1,#pruns, listput(runsums, runsum); if((i>1) && pruns[i] == pruns[i-1], runsum += pruns[i], runsum = pruns[i])); listput(runsums, runsum); #Set(runsums)); \\ Antti Karttunen, Jan 20 2025

Data section extended to a(108) by Antti Karttunen, Jan 20 2025

A353835 Number of distinct run-sums of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 23 2022

nonn

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 runs of a sequence consists of its maximal consecutive constant subsequences when read left-to-right. For example, the runs of (2,2,1,1,1,3,2,2) are (2,2), (1,1,1), (3), (2,2), with sums (4,3,3,4).

			The prime indices of 3780 are {1,1,2,2,2,3,4}, with distinct run-sums {2,3,4,6}, so a(3780) = 4.
The prime indices of 8820 are {1,1,2,2,3,4,4}, with distinct run-sums {2,3,4,8}, so a(8820) = 4.
The prime indices of 13860 are {1,1,2,2,3,4,5}, with distinct run-sums {2,3,4,5}, so a(13860) = 4.
The prime indices of 92400 are {1,1,1,1,2,3,3,4,5}, with distinct run-sums {2,4,5,6}, so a(92400) = 4.

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 A002110.
A version for binary expansion is A165413.
Positions of 0's and 1's are A353833, nonprime A353834, counted by A304442.
The case of all distinct run-sums is ranked by A353838, counted by A353837.
The version for compositions is A353849.
The weak version is A353861.
A001222 counts prime factors, distinct A001221.
A005811 counts runs in binary expansion.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A300273 ranks collapsible partitions, counted by A275870.
A351014 counts distinct runs in standard compositions.
A353832 represents the operation of taking run-sums of a partition.
A353840-A353846 pertain to partition run-sum trajectory.
A353862 gives greatest run-sum of prime indices, least A353931.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A071625, A073093, A116608, A175413, A181819, A333755, A353839, A353848, A353850, A353852, A353867.

Table[Length[Union[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]*k]]],{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); };
A353832(n) = if(1==n,n,my(pruns = pis_to_runs(n), m=1, runsum=pruns[1]); for(i=2,#pruns,if(pruns[i] == pruns[i-1], runsum += pruns[i], m *= prime(runsum); runsum = pruns[i])); (m*prime(runsum)));
A353835(n) = omega(A353832(n)); \\ Antti Karttunen, Jan 20 2025

a(n) = A001221(A353832(n)). [From formula section of A353832] - Antti Karttunen, Jan 20 2025

Data section extended to a(105) by Antti Karttunen, Jan 20 2025

A353834 Nonprime numbers whose prime indices have all equal run-sums.

Original entry on oeis.org

1, 4, 8, 9, 12, 16, 25, 27, 32, 40, 49, 63, 64, 81, 112, 121, 125, 128, 144, 169, 243, 256, 289, 325, 343, 351, 352, 361, 512, 529, 625, 675, 729, 832, 841, 931, 961, 1008, 1024, 1331, 1369, 1539, 1600, 1681, 1728, 1849, 2048, 2176, 2187, 2197, 2209, 2401

Offset: 1

Gus Wiseman, May 26 2022

nonn

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 runs of a sequence consists of its maximal consecutive constant subsequences when read left-to-right. For example, the runs of (2,2,1,1,1,3,2,2) are (2,2), (1,1,1), (3), (2,2), with sums (4,3,3,4).

			The terms together with their prime indices begin:
     1: {}
     4: {1,1}
     8: {1,1,1}
     9: {2,2}
    12: {1,1,2}
    16: {1,1,1,1}
    25: {3,3}
    27: {2,2,2}
    32: {1,1,1,1,1}
    40: {1,1,1,3}
    49: {4,4}
    63: {2,2,4}
    64: {1,1,1,1,1,1}
    81: {2,2,2,2}
   112: {1,1,1,1,4}
   121: {5,5}
   125: {3,3,3}
   128: {1,1,1,1,1,1,1}
For example, 675 is in the sequence because its prime indices {2,2,2,3,3} have run-sums (6,6).

For equal run-lengths we have A072774\A000040, counted by A047966(n)-1.
These partitions are counted by A304442(n) - 1.
These are the nonprime positions of prime powers in A353832.
Including the primes gives A353833.
For distinct run-sums we have A353838\A000040, counted by A353837(n)-1.
For compositions we have A353848\A000079, counted by A353851(n)-1.
A001222 counts prime factors, distinct A001221.
A005811 counts runs in binary expansion, distinct run-lengths A165413.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A300273 ranks collapsible partitions, counted by A275870.
A353835 counts distinct run-sums of prime indices, weak A353861.
A353840-A353846 pertain to partition run-sum trajectory.
A353862 gives greatest run-sum of prime indices, least A353931.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A000005, A000961, A007947, A025475, A071625, A073093, A323014, A353839.

Select[Range[100],!PrimeQ[#]&&SameQ@@Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]&]

from itertools import count, islice
from sympy import factorint, primepi
def A353848_gen(startvalue=1): # generator of terms >= startvalue
    return filter(lambda n: n == 1 or (sum((f:=factorint(n)).values()) > 1 and len(set(primepi(p)*e for p, e in f.items())) <= 1), count(max(startvalue,1)))
A353848_list = list(islice(A353848_gen(),30)) # Chai Wah Wu, May 27 2022

A353863 Number of integer partitions of n whose weak run-sums cover an initial interval of nonnegative integers.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 6, 7, 10, 11, 16, 20, 24, 30, 43, 47, 62, 79, 94, 113, 143, 170, 211, 256, 307, 372, 449, 531, 648, 779, 926, 1100, 1323, 1562, 1864, 2190, 2595, 3053, 3611, 4242, 4977, 5834, 6825, 7973, 9344, 10844, 12641, 14699, 17072, 19822

Offset: 0

Gus Wiseman, Jun 04 2022

nonn

A weak run-sum of a sequence is the sum of any consecutive constant subsequence. For example, the weak run-sums of (3,2,2,1) are {1,2,3,4}.

This is a kind of completeness property, cf. A126796.

			The a(1) = 1 through a(8) = 7 partitions:
  (1)  (11)  (21)   (211)   (311)    (321)     (3211)     (3221)
             (111)  (1111)  (2111)   (3111)    (4111)     (32111)
                            (11111)  (21111)   (22111)    (41111)
                                     (111111)  (31111)    (221111)
                                               (211111)   (311111)
                                               (1111111)  (2111111)
                                                          (11111111)

For parts instead of weak run-sums we have A000009.
For multiplicities instead of weak run-sums we have A317081.
If weak run-sums are distinct we have A353865, the completion of A353864.
A003242 counts anti-run compositions, ranked by A333489, complement A261983.
A005811 counts runs in binary expansion.
A165413 counts distinct run-lengths in binary expansion, sums A353929.
A300273 ranks collapsible partitions, counted by A275870, comps A353860.
A353832 represents taking run-sums of a partition, compositions A353847.
A353833 ranks partitions with all equal run-sums, counted by A304442.
A353835 counts distinct run-sums of prime indices.
A353837 counts partitions with distinct run-sums, ranked by A353838.
A353840-A353846 pertain to partition run-sum trajectory.
A353861 counts distinct weak run-sums of prime indices.
A353932 lists run-sums of standard compositions.
Rulers: A103295, A103300, A169942, A325768.
Complete: A002033, A325780, A126796, A276024, A325781, A188431, A353866.
Cf. A047967, A073093, A181819, A237685, A353844, A353867, A353930.

normQ[m_]:=m=={}||Union[m]==Range[Max[m]];
msubs[s_]:=Join@@@Tuples[Table[Take[t,i],{t,Split[s]},{i,0,Length[t]}]];
wkrs[y_]:=Union[Total/@Select[msubs[y],SameQ@@#&]];
Table[Length[Select[IntegerPartitions[n],normQ[Rest[wkrs[#]]]&]],{n,0,15}]

\\ isok(p) tests the partition.
isok(p)={my(b=0, s=0, t=0); for(i=1, #p, if(p[i]<>t, t=p[i]; s=0); s += t; b = bitor(b, 1<<(s-1))); bitand(b,b+1)==0}
a(n) = {my(r=0); forpart(p=n, r+=isok(p)); r} \\ Andrew Howroyd, Jan 15 2024

a(31) onwards from Andrew Howroyd, Jan 15 2024

A353865 Number of complete rucksack partitions of n. Partitions whose weak run-sums are distinct and cover an initial interval of nonnegative integers.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 5, 2, 3, 4, 3, 2, 4, 3, 3, 4, 4, 3, 4, 3, 4, 5, 5, 4, 6, 4, 6, 5, 4, 5, 6, 5, 6, 7, 6, 5, 9, 6, 6, 7, 6, 8, 9, 6, 6, 8, 9, 7, 9, 9, 7, 10, 9, 8, 13, 7, 10, 11, 8, 9, 10, 11, 12, 9, 11, 9, 15, 12, 12, 19, 13, 16, 16

Offset: 0

Gus Wiseman, Jun 04 2022

nonn

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). A weak run-sum is the sum of any consecutive constant subsequence.

Do all positive integers appear only finitely many times in this sequence?

			The a(n) compositions for n = 1, 3, 9, 15, 18:
  (1)  (21)   (4311)       (54321)            (543321)
       (111)  (51111)      (532221)           (654111)
              (111111111)  (651111)           (7611111)
                           (81111111)         (111111111111111111)
                           (111111111111111)
For example, the weak runs of y = {7,5,4,4,3,3,3,1,1} are {}, {1}, {1,1}, {3}, {4}, {5}, {3,3}, {7}, {4,4}, {3,3,3}, with sums 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, which are all distinct and cover an initial interval, so y is counted under a(31).

Perfect partitions are counted by A002033, ranked by A325780.
Knapsack partitions are counted by A108917, ranked by A299702.
This is the complete case of A353864, ranked by A353866.
These partitions are ranked by A353867.
A000041 counts partitions, strict A000009.
A275870 counts collapsible partitions, ranked by A300273.
A304442 counts partitions with all equal run-sums, ranked by A353833.
A353832 represents the operation of taking run-sums of a partition.
A353836 counts partitions by number of distinct run-sums.
A353837 counts partitions with distinct run-sums, ranked by A353838.
A353840-A353846 pertain to partition run-sum trajectory.
A353850 counts compositions with all distinct run-sums, ranked by A353852.
A353863 counts partitions whose weak run-sums cover an initial interval.
Cf. A008284, A018818, A225485, A325239, A325862, A353834, A353839.

norqQ[m_]:=Sort[m]==Range[0,Max[m]];
msubs[s_]:=Join@@@Tuples[Table[Take[t,i],{t,Split[s]},{i,0,Length[t]}]];
Table[Length[Select[IntegerPartitions[n],norqQ[Total/@Select[msubs[#],SameQ@@#&]]&]],{n,0,15}]

a(n) = my(c=0, s, v); if(n, forpart(p=n, if(p[1]==1, v=List([s=1]); for(i=2, #p, if(p[i]==p[i-1], listput(v, s+=p[i]), listput(v, s=p[i]))); s=#v; listsort(v, 1); if(s==#v&&s==v[s], c++))); c, 1); \\ Jinyuan Wang, Feb 21 2025

More terms from Jinyuan Wang, Feb 21 2025

A353836 Triangle read by rows where T(n,k) is the number of integer partitions of n with k distinct run-sums.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 0, 2, 1, 0, 0, 4, 1, 0, 0, 0, 2, 5, 0, 0, 0, 0, 5, 5, 1, 0, 0, 0, 0, 2, 12, 1, 0, 0, 0, 0, 0, 7, 12, 3, 0, 0, 0, 0, 0, 0, 3, 19, 8, 0, 0, 0, 0, 0, 0, 0, 5, 27, 9, 1, 0, 0, 0, 0, 0, 0, 0, 2, 33, 20, 1, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, May 26 2022

The run-sums of a sequence are the sums of its maximal consecutive constant subsequences (runs). For example, the run-sums of (2,2,1,1,1,3,2,2) are (4,3,3,4).

			Triangle begins:
  1
  0  1
  0  2  0
  0  2  1  0
  0  4  1  0  0
  0  2  5  0  0  0
  0  5  5  1  0  0  0
  0  2 12  1  0  0  0  0
  0  7 12  3  0  0  0  0  0
  0  3 19  8  0  0  0  0  0  0
  0  5 27  9  1  0  0  0  0  0  0
  0  2 33 20  1  0  0  0  0  0  0  0
  0 13 28 34  2  0  0  0  0  0  0  0  0
  0  2 48 46  5  0  0  0  0  0  0  0  0  0
  0  5 65 51 14  0  0  0  0  0  0  0  0  0  0
  0  4 57 99 15  1  0  0  0  0  0  0  0  0  0  0
For example, row n = 8 counts the following partitions:
  (8)         (53)       (431)
  (44)        (62)       (521)
  (422)       (71)       (3221)
  (2222)      (332)
  (41111)     (611)
  (221111)    (3311)
  (11111111)  (4211)
              (5111)
              (22211)
              (32111)
              (311111)
              (2111111)

Row sums are A000041.
Counting distinct parts instead of run-sums gives A116608.
Column k = 1 is A304442, ranked by A353833 (nonprime A353834).
The rank statistic is A353835, weak A353861, for compositions A353849.
A275870 counts collapsible partitions, ranked by A300273.
A351014 counts distinct runs in standard compositions.
A353832 represents the operation of taking run-sums of a partition.
A353837 counts partitions with all distinct run-sums, ranked by A353838.
A353840-A353846 pertain to partition run-sum trajectory.
A353864 counts rucksack partitions, ranked by A353866.
A353865 counts perfect rucksack partitions, ranked by A353867.
Cf. A008284, A047966, A071625, A165413, A175413, A325280, A333755.

Table[Length[Select[IntegerPartitions[n], Length[Union[Total/@Split[#]]]==k&]],{n,0,15},{k,0,n}]

A353841 Length of the trajectory of the partition run-sum transformation of n, using Heinz numbers; a(1) = 0.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 25 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
Starting with n, this is one plus the number of times one must apply A353832 to reach a squarefree number.
Also Kimberling's depth statistic (defined in A237685 and A237750) plus one.

			The trajectory for a(1080) = 4 is the following, with prime indices shown on the right:
  1080: {1,1,1,2,2,2,3}
   325: {3,3,6}
   169: {6,6}
    37: {12}
The trajectory for a(87780) = 5 is the following, with prime indices shown on the right:
  87780: {1,1,2,3,4,5,8}
  65835: {2,2,3,4,5,8}
  51205: {3,4,4,5,8}
  19855: {3,5,8,8}
   2915: {3,5,16}
The trajectory for a(39960) = 5 is the following, with prime indices shown on the right:
  39960: {1,1,1,2,2,2,3,12}
  12025: {3,3,6,12}
   6253: {6,6,12}
   1369: {12,12}
     89: {24}

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of 1's are A005117.
The version for run-lengths instead of sums is A182850 or A323014.
Positions of first appearances are A353743.
These are the row-lengths of A353840.
Other sequences pertaining to this trajectory are A353842-A353845.
Counting partitions by this statistic gives A353846.
The version for compositions is A353854, run-lengths of A353853.
A001222 counts prime factors, distinct A001221.
A005811 counts runs in binary expansion.
A056239 adds up prime indices, row sums of A112798 and A296150.
A300273 ranks collapsible partitions, counted by A275870.
A318928 gives runs-resistance of binary expansion.
A353832 represents the operation of taking run-sums of a partition.
A353833 ranks partitions with all equal run-sums, counted by A304442.
A353835 counts distinct run-sums of prime indices, weak A353861.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A008966, A071625, A073093, A181819, A182857, A325239, A325277, A325278, A353834, A353847, A353865, A353867.

Table[If[n==1,0,Length[NestWhileList[Times@@Prime/@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]*k]&,n,!SquareFreeQ[#]&]]],{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); };
A353832(n) = if(1==n,n,my(pruns = pis_to_runs(n), m=1, runsum=pruns[1]); for(i=2,#pruns,if(pruns[i] == pruns[i-1], runsum += pruns[i], m *= prime(runsum); runsum = pruns[i])); (m*prime(runsum)));
A353841(n) = if(1==n,0,for(i=1,oo,if(issquarefree(n), return(i), n = A353832(n)))); \\ Antti Karttunen, Jan 20 2025

a(1) = 0, and for n > 1, if A008966(n) = 1 [n is in A005117], a(n) = 1, otherwise a(n) = 1+a(A353832(n)). [See comments] - Antti Karttunen, Jan 20 2025

More terms from Antti Karttunen, Jan 20 2025

cp's OEIS Frontend

A353859 Triangle read by rows where T(n,k) is the number of integer compositions of n with composition run-sum trajectory of length k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A354584 Irregular triangle read by rows where row k lists the run-sums of the multiset (weakly increasing sequence) of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353839 Numbers whose prime indices do not have all distinct run-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A353861 Number of distinct weak run-sums of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A353835 Number of distinct run-sums of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A353834 Nonprime numbers whose prime indices have all equal run-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A353863 Number of integer partitions of n whose weak run-sums cover an initial interval of nonnegative integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A353865 Number of complete rucksack partitions of n. Partitions whose weak run-sums are distinct and cover an initial interval of nonnegative integers.

Views

Author

Keywords

Comments

Examples