cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 67 results. Next

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

Views

Author

Gus Wiseman, May 23 2022

Keywords

Comments

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).

Examples

			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.
		

Crossrefs

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.

Programs

  • Mathematica
    Table[Length[Union[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]*k]]],{n,100}]
  • PARI
    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

Formula

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

Extensions

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

Views

Author

Gus Wiseman, May 26 2022

Keywords

Comments

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).

Examples

			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).
		

Crossrefs

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.

Programs

  • Mathematica
    Select[Range[100],!PrimeQ[#]&&SameQ@@Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]&]
  • Python
    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

A353860 Number of collapsible integer compositions of n.

Original entry on oeis.org

0, 1, 2, 2, 5, 2, 12, 2, 26, 9, 36, 2, 206, 2, 132, 40, 677, 2, 1746, 2, 3398, 136, 2052, 2, 44388, 33, 8196, 730, 79166, 2, 263234, 2, 458330, 2056, 131076, 160, 8804349, 2, 524292, 8200, 13662156, 2, 36036674, 2, 48844526, 90282, 8388612, 2, 1971667502, 129
Offset: 0

Views

Author

Gus Wiseman, Jun 04 2022

Keywords

Comments

If a collapse is a joining of some number of adjacent equal parts of an integer composition, we call a composition collapsible iff by some sequence of collapses it can be reduced to a single part. An example of such a sequence of collapses is (1,1,1,3,2,1,1,2) -> (3,3,2,1,1,2) -> (3,3,2,2,2) -> (6,2,2,2) -> (6,6) -> (12), which shows that (1,1,1,3,2,1,1,2) is a collapsible composition of 12.

Examples

			The a(0) = 0 through a(6) = 12 compositions:
  .  (1)  (2)   (3)    (4)     (5)      (6)
          (11)  (111)  (22)    (11111)  (33)
                       (112)            (222)
                       (211)            (1113)
                       (1111)           (1122)
                                        (2112)
                                        (2211)
                                        (3111)
                                        (11112)
                                        (11211)
                                        (21111)
                                        (111111)
		

Crossrefs

The version for partitions is A275870, ranked by A300273.
A003242 counts anti-run compositions, ranked by A333489, complement A261983.
A011782 counts 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.

Programs

  • Mathematica
    repcams[q_List]:=repcams[q]=Union[{q},If[UnsameQ@@q,{},Union@@repcams/@ Union[Insert[Drop[q,#],Plus@@Take[q,#],First[#]]&/@ Select[Tuples[Range[Length[q]],2],And[Less@@#,SameQ@@Take[q,#]]&]]]];
    Table[Length[Select[Join@@Permutations/@ IntegerPartitions[n],MemberQ[repcams[#],{n}]&]],{n,0,15}]
  • PARI
    a(n) = if(n==0, 0, 1 - sumdiv(n, d, if(d>1, moebius(d)*a(n/d)^d ))) \\ Andrew Howroyd, Feb 04 2023

Formula

Sum_{d|n} mu(d)*a(n/d)^d = 1 for n > 0. - Andrew Howroyd, Feb 04 2023

Extensions

Terms a(16) and beyond from Andrew Howroyd, Feb 04 2023

A382876 Number of ways to permute the prime indices of n so that the run-sums are all different.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 0, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 6, 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 1, 6, 1, 2, 2, 2, 1, 4, 1, 2, 2, 2, 1, 4, 2, 4, 2, 2, 1, 0, 1, 2, 0, 1, 2, 6, 1, 2, 2, 6, 1, 4, 1, 2, 2, 2, 2, 6, 1, 2, 1, 2, 1, 0, 2, 2, 2
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2025

Keywords

Comments

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, sum A056239.
A run in a sequence is a constant consecutive subsequence. The run-sums of a sequence are obtained by splitting it into maximal runs and taking their sums. See A353932 for run-sums of standard compositions.

Examples

			For n = 12, none of the permutations (1,1,2), (1,2,1), (2,1,1) has distinct run-sums, so a(12) = 0.
The prime indices of 36 are {1,1,2,2}, and we have permutations: (1,1,2,2), (2,2,1,1), so a(36) = 2.
For n = 90 we have:
  (1,2,2,3)
  (1,3,2,2)
  (2,2,1,3)
  (2,2,3,1)
  (3,1,2,2)
  (3,2,2,1)
So a(90) = 6. The 6 missing permutations are: (1,2,3,2), (2,1,2,3), (2,1,3,2), (2,3,1,2), (2,3,2,1), (3,2,1,2).
		

Crossrefs

Positions of 1 are A000961.
Compositions of this type are counted by A353850, ranked by A353852.
Positions of 0 appear to be A381636, for equal run-sums A383100.
For run-lengths instead of sums we have A382771, equal A382857 (zeros A382879).
For equal instead of distinct run-sums we have A382877.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A304442 counts compositions with equal run-sums, complement A382076.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A353837 counts partitions with distinct run-sums, ranks A353838.
A353847 gives composition run-sum transformation, for partitions A353832.
A353932 lists run-sums of standard compositions.

Programs

  • Mathematica
    Table[Length[Select[Permutations[PrimePi /@ Join@@ConstantArray@@@FactorInteger[n]], UnsameQ@@Total/@Split[#]&]],{n,100}]

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

Views

Author

Gus Wiseman, Jun 04 2022

Keywords

Comments

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.

Examples

			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)
		

Crossrefs

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.

Programs

  • Mathematica
    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}]
  • PARI
    \\ 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

Extensions

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

A353867 Heinz numbers of integer partitions where every partial run (consecutive constant subsequence) has a different sum, and these sums include every integer from 0 to the greatest part.

Original entry on oeis.org

1, 2, 4, 6, 8, 16, 20, 30, 32, 56, 64, 90, 128, 140, 176, 210, 256, 416, 512, 616, 990, 1024, 1088, 1540, 2048, 2288, 2310, 2432, 2970, 4096, 4950, 5888, 7072, 7700, 8008, 8192, 11550, 12870, 14848, 16384, 20020, 20672, 30030, 31744, 32768, 38896, 50490, 55936
Offset: 1

Views

Author

Gus Wiseman, Jun 07 2022

Keywords

Comments

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.
Related concepts:
- A partition whose submultiset sums cover an initial interval is said to be complete (A126796, ranked by A325781).
- In a knapsack partition (A108917, ranked by A299702), every submultiset has a different sum.
- A complete partition that is also knapsack is said to be perfect (A002033, ranked by A325780).
- A partition whose partial runs have all different sums is said to be rucksack (A353864, ranked by A353866, complement A354583).

Examples

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   16: {1,1,1,1}
   20: {1,1,3}
   30: {1,2,3}
   32: {1,1,1,1,1}
   56: {1,1,1,4}
   64: {1,1,1,1,1,1}
   90: {1,2,2,3}
  128: {1,1,1,1,1,1,1}
  140: {1,1,3,4}
  176: {1,1,1,1,5}
  210: {1,2,3,4}
  256: {1,1,1,1,1,1,1,1}
		

Crossrefs

Knapsack partitions are counted by A108917, ranked by A299702.
Complete partitions are counted by A126796, ranked by A325781.
These partitions are counted by A353865.
This is a special case of A353866, counted by A353864, complement A354583.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A073093 counts prime-power divisors.
A124010 gives prime signature, sorted A118914.
A300273 ranks collapsible partitions, counted by A275870.
A353832 represents the operation of taking run-sums of a partition.
A353833 ranks partitions with all equal run-sums, nonprime A353834.
A353836 counts partitions by number of distinct run-sums.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353863 counts partitions whose weak run-sums cover an initial interval.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    norqQ[m_]:=Sort[m]==Range[0,Max[m]];
    msubs[s_]:=Join@@@Tuples[Table[Take[t,i],{t,Split[s]},{i,0,Length[t]}]];
    Select[Range[1000],norqQ[Total/@Select[msubs[primeMS[#]],SameQ@@#&]]&]

A382877 Number of ways to permute the prime indices of n so that the run-sums are all equal.

Original entry on oeis.org

1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 2, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 2, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Apr 14 2025

Keywords

Comments

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, sum A056239.

Examples

			The a(144) = 4 permutations of {1,1,1,1,2,2} are:
  (1,1,1,1,2,2)
  (1,1,2,1,1,2)
  (2,1,1,2,1,1)
  (2,2,1,1,1,1)
The a(1728) = 4 permutations are:
  (1,1,1,1,1,1,2,2,2)
  (1,1,2,1,1,2,1,1,2)
  (2,1,1,2,1,1,2,1,1)
  (2,2,2,1,1,1,1,1,1)
		

Crossrefs

Compositions of this type are counted by A353851, ranked by A353848.
For run-lengths instead of sums we have A382857 (zeros A382879), distinct A382771.
For distinct instead of equal run-sums we have A382876, counted by A353850.
Positions of terms > 1 are A383015.
Positions of 1 are A383099.
Positions of 0 are A383100 (complement A383110), counted by A383098.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A304442 counts compositions with equal run-sums, complement A382076.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A353837 counts partitions with distinct run-sums, ranks A353838.
A353847 gives composition run-sum transformation, for partitions A353832.
A353932 lists run-sums of standard compositions.

Programs

  • Mathematica
    Table[Length[Select[Permutations[PrimePi/@Join @@ ConstantArray@@@FactorInteger[n]], SameQ@@Total/@Split[#]&]],{n,100}]

A304405 Number of partitions of n in which the sequence of the sum of the same summands is nondecreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 12, 18, 22, 31, 37, 52, 61, 80, 97, 127, 147, 189, 220, 277, 325, 402, 469, 578, 665, 804, 933, 1121, 1282, 1537, 1754, 2081, 2374, 2793, 3179, 3739, 4232, 4923, 5587, 6477, 7305, 8445, 9519, 10949, 12323, 14110, 15825, 18099, 20229, 23005
Offset: 0

Views

Author

Seiichi Manyama, May 12 2018

Keywords

Comments

Number of integer partitions of n with weakly decreasing run-sums, complement A357878. - Gus Wiseman, Oct 22 2022

Examples

			n |                      | Sequence of the sum of the same summands
--+----------------------+-----------------------------------------
1 | 1                    | 1
2 | 2                    | 2
  | 1+1                  | 2
3 | 3                    | 3
  | 2+1                  | 1, 2
  | 1+1+1                | 3
4 | 4                    | 4
  | 3+1                  | 1, 3
  | 2+2                  | 4
  | 2+1+1                | 2, 2
  | 1+1+1+1              | 4
5 | 5                    | 5
  | 4+1                  | 1, 4
  | 3+2                  | 2, 3
  | 3+1+1                | 2, 3
  | 2+2+1                | 1, 4
  | 1+1+1+1+1            | 5
6 | 6                    | 6
  | 5+1                  | 1, 5
  | 4+2                  | 2, 4
  | 4+1+1                | 2, 4
  | 3+3                  | 6
  | 3+2+1                | 1, 2, 3
  | 3+1+1+1              | 3, 3
  | 2+2+2                | 6
  | 2+2+1+1              | 2, 4
  | 1+1+1+1+1+1          | 6
		

Crossrefs

The strict opposite version is A304430, ranked by A357864.
The strict version is A304428, ranked by A357862.
The opposite version is A304406, ranked by A357861.
Number of rows in A354584 summing to n that are strictly increasing.
These partitions are ranked by A357875.
A000041 counts integer partitions, strict A000009.
A304442 counts partitions with equal run-sums, distinct A353837.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],GreaterEqual@@Total/@Split[#]&]],{n,0,30}] (* Gus Wiseman, Oct 22 2022 *)

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

Views

Author

Gus Wiseman, Jun 04 2022

Keywords

Comments

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?

Examples

			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).
		

Crossrefs

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.

Programs

  • Mathematica
    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}]
  • PARI
    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

Extensions

More terms from Jinyuan Wang, Feb 21 2025

A383100 Numbers whose prime indices have no permutation with all equal run-sums.

Original entry on oeis.org

6, 10, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 38, 39, 42, 44, 45, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 108
Offset: 1

Views

Author

Gus Wiseman, Apr 20 2025

Keywords

Comments

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, sum A056239.

Examples

			The prime indices of 18 are {1,2,2}, with permutations (1,2,2), (2,1,2), (2,2,1), with run sums (1,4), (2,1,2), (4,1) respectively, so 18 is in the sequence.
The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   38: {1,8}
   39: {2,6}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   46: {1,9}
   50: {1,3,3}
		

Crossrefs

For distinct instead of equal run-sums we appear to have A381636, counted by A381717.
For run-lengths instead of sums we have A382879, counted by complement of A383013.
These are the positions of 0 in A382877.
For more than one choice we have A383015.
The complement is A383110, counted by A383098.
Partitions of this type are counted by A383096.
For a unique choice we have A383099, counted by A383095.
A056239 adds up prime indices, row sums of A112798.
A304442 counts partitions with equal run-sums, ranks A353833.
A353851 counts compositions with equal run-sums, ranks A353848.

Programs

  • Mathematica
    Select[Range[100], Length[Select[Permutations[PrimePi/@Join @@ ConstantArray@@@FactorInteger[#]], SameQ@@Total/@Split[#]&]]==0&]
Previous Showing 21-30 of 67 results. Next