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 31-40 of 47 results. Next

A383099 Numbers whose prime indices have exactly one permutation with all equal run-sums.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 36, 37, 41, 43, 47, 48, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193
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 terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   31: {11}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   37: {12}
   41: {13}
		

Crossrefs

For distinct instead of equal run-sums we have A000961, counted by A000005.
These are the positions of 1 in A382877.
For more than one choice we have A383015.
Partitions of this type are counted by A383095.
For no choices we have A383100, counted by A383096.
For at least one choice we have A383110, counted by A383098, see A383013.
For run-lengths instead of sums we have A383112 = positions of 1 in A382857.
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[#]&]]==1&]

Formula

The complement is A383015 \/ A383100, for run-lengths A382879 \/ A383089.

A353862 Greatest run-sum of the prime indices of n.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 4, 3, 4, 3, 5, 2, 6, 4, 3, 4, 7, 4, 8, 3, 4, 5, 9, 3, 6, 6, 6, 4, 10, 3, 11, 5, 5, 7, 4, 4, 12, 8, 6, 3, 13, 4, 14, 5, 4, 9, 15, 4, 8, 6, 7, 6, 16, 6, 5, 4, 8, 10, 17, 3, 18, 11, 4, 6, 6, 5, 19, 7, 9, 4, 20, 4, 21, 12, 6, 8, 5, 6, 22, 4, 8
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.
A run-sum of a sequence is the sum of any maximal consecutive constant subsequence.

Examples

			The prime indices of 72 are {1,1,1,2,2}, with run-sums {3,4}, so a(72) = 4.
		

Crossrefs

Positions of first appearances are A008578.
For binary expansion we have A038374, least A144790.
For run-lengths instead of run-sums we have A051903.
Distinct run-sums are counted by A353835, weak A353861.
The least run-sum is given by 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.
A300273 ranks collapsible partitions, counted by A275870.
A304442 counts partitions with all equal run-sums, compositions A353851.
A353832 represents the operation of taking run-sums of a partition.
A353833 ranks partitions with all equal run sums, nonprime A353834.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353840-A353846 pertain to partition run-sum trajectory.

Programs

  • Mathematica
    Table[Max@@Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k],{n,100}]

A383095 Number of integer partitions of n having exactly one permutation with all equal run-sums.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 6, 2, 4, 5, 6, 2, 12, 2, 6, 8, 5, 2, 20, 2, 12, 8, 6, 2, 20, 5, 6, 12, 12, 2, 34, 2, 6, 8, 6, 8, 45, 2, 6, 8, 20, 2, 34, 2, 12, 28, 6, 2, 30, 5, 20, 8, 12, 2, 52, 8, 20, 8, 6, 2, 78, 2, 6, 28, 7, 8, 34, 2, 12, 8, 34, 2, 80, 2, 6, 28, 12, 8, 34, 2, 30, 25
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2025

Keywords

Examples

			The partition (2,2,1,1) has permutation (2,1,1,2) so is counted under a(6).
The a(1) = 1 through a(10) = 6 partitions (A=10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      33111      22222
                           2211             11111111  3111111    2221111
                           21111                      111111111  22111111
                           111111                                1111111111
		

Crossrefs

For distinct instead of equal run-sums we have A000005.
For run-lengths instead of sums we have A383094.
The complement is counted by A383096 + A383097, ranks A383100 \/ A383015.
These partitions are ranked by A383099 = positions of 1 in A382877.
Counting and ranking partitions by run-lengths and run-sums:
- constant: A047966 (ranks A072774), sums A304442 (ranks A353833)
- distinct: A098859 (ranks A130091), sums A353837 (ranks A353838)
- weakly decreasing: A100882 (ranks A242031), sums A304405 (ranks A357875)
- weakly increasing: A100883 (ranks A304678), sums A304406 (ranks A357861)
- strictly decreasing: A100881 (ranks A304686), sums A304428 (ranks A357862)
- strictly increasing: A100471 (ranks A334965), sums A304430 (ranks A357864)
A275870 counts collapsible partitions, ranks A300273.
A326534 ranks multiset partitions with a common sum, counted by A321455, normal A326518.
A353851 counts compositions with all equal run-sums, ranks A353848.
A383098 counts partitions with a permutation having all equal run-sums, ranks A383110.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Length[Select[Permutations[#], SameQ@@Total/@Split[#]&]]==1&]],{n,0,15}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A383098 Number of integer partitions of n having at least one permutation with all equal run-sums.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 7, 2, 7, 5, 7, 2, 19, 2, 7, 8, 14, 2, 27, 2, 24, 8, 7, 2, 58, 5, 7, 13, 30, 2, 72, 2, 38, 8, 7, 8, 135, 2, 7, 8, 91, 2, 112, 2, 45, 38, 7, 2, 258, 5, 51, 8, 54, 2, 208, 8, 143, 8, 7, 2, 525, 2, 7, 44, 153, 8, 256, 2, 75, 8, 136, 2, 891, 2, 7, 57, 87, 8
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2025

Keywords

Examples

			The partition (4,4,4,2,2,1,1,1,1) has permutations (4,2,2,4,1,1,1,1,4) and (4,1,1,1,1,4,2,2,4) so is counted under a(20).
The a(1) = 1 through a(10) = 7 partitions (A=10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              211          222              422       33111      22222
              1111         2211             2222      3111111    511111
                           3111             41111     111111111  2221111
                           21111            221111               22111111
                           111111           11111111             1111111111
		

Crossrefs

For distinct instead of equal run-sums we appear to have A382427.
For run-lengths instead of sums we have A383013, ranked by complement of A382879.
The case of a unique choice is A383095, ranks A383099 = positions of 1 in A382877.
The complement is counted by A383096, ranks A383100 = positions of 0 in A382877.
These partitions are ranked by A383110.
The case of more than one choice is A383097, ranks A383015.
Counting and ranking partitions by run-lengths and run-sums:
- constant: A047966 (ranks A072774), sums A304442 (ranks A353833)
- distinct: A098859 (ranks A130091), sums A353837 (ranks A353838)
- weakly decreasing: A100882 (ranks A242031), sums A304405 (ranks A357875)
- weakly increasing: A100883 (ranks A304678), sums A304406 (ranks A357861)
- strictly decreasing: A100881 (ranks A304686), sums A304428 (ranks A357862)
- strictly increasing: A100471 (ranks A334965), sums A304430 (ranks A357864)
A275870 counts collapsible partitions, ranks A300273.
A326534 ranks multiset partitions with a common sum, counted by A321455, normal A326518.
A353851 counts compositions with all equal run-sums, ranks A353848.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Select[Permutations[#],SameQ@@Total/@Split[#]&]!={}&]],{n,0,15}]

Formula

a(n) = A383097(n) + A383095(n), ranks A383015 \/ A383099.

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A383110 Numbers whose prime indices have a permutation with all equal run-sums.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 36, 37, 40, 41, 43, 47, 48, 49, 53, 59, 61, 63, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 112, 113, 121, 125, 127, 128, 131, 137, 139, 144, 149, 151, 157, 163, 167, 169, 173
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 144 are {1,1,1,1,2,2}, with permutations with equal run sums (1,1,1,1,2,2), (1,1,2,1,1,2), (2,1,1,2,1,1), (2,2,1,1,1,1), so 144 is in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  31: {11}
  32: {1,1,1,1,1}
  36: {1,1,2,2}
  37: {12}
		

Crossrefs

For distinct run-sums we appear to have complement of A381636 (counted by A381717).
These are the positions of positive terms in A382877.
For run-lengths instead of sums we have complement of A382879, counted by A383013.
For more than one choice we have A383015.
Partitions of this type are counted by A383098.
For a unique choice we have A383099, counted by A383095.
The complement is A383100, counted by A383096.
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&]

Formula

Equals A383015 \/ A383099, counted by A353851 \/ A383095.

A383096 Number of integer partitions of n having no permutation with all equal run-sums.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 4, 13, 15, 25, 35, 54, 58, 99, 128, 168, 217, 295, 358, 488, 603, 784, 995, 1253, 1517, 1953, 2429, 2997, 3688, 4563, 5532, 6840, 8311, 10135, 12303, 14875, 17842, 21635, 26008, 31177, 37247, 44581, 53062, 63259, 75130, 89096, 105551, 124752, 147015, 173520
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2025

Keywords

Examples

			The a(3) = 1 through a(8) = 15 partitions:
  (21)  (31)  (32)    (42)   (43)      (53)
              (41)    (51)   (52)      (62)
              (221)   (321)  (61)      (71)
              (311)   (411)  (322)     (332)
              (2111)         (331)     (431)
                             (421)     (521)
                             (511)     (611)
                             (2221)    (3221)
                             (3211)    (3311)
                             (4111)    (4211)
                             (22111)   (5111)
                             (31111)   (22211)
                             (211111)  (32111)
                                       (311111)
                                       (2111111)
		

Crossrefs

For distinct instead of equal run-sums we appear to have A381717, q.v.
For run-lengths instead of sums we have A382915, ranks A382879, by signature A382914.
For more than one permutation we have A383097, ranks A383015.
The complement is counted by A383098, ranks A383110
These partitions are ranked by A383100, positions of 0 in A382877.
Counting and ranking partitions by run-lengths and run-sums:
- constant: A047966 (ranks A072774), sums A304442 (ranks A353833)
- distinct: A098859 (ranks A130091), sums A353837 (ranks A353838)
- weakly decreasing: A100882 (ranks A242031), sums A304405 (ranks A357875)
- weakly increasing: A100883 (ranks A304678), sums A304406 (ranks A357861)
- strictly decreasing: A100881 (ranks A304686), sums A304428 (ranks A357862)
- strictly increasing: A100471 (ranks A334965), sums A304430 (ranks A357864)
A275870 counts collapsible partitions, ranks A300273.
A326534 ranks multiset partitions with a common sum, counted by A321455, normal A326518.
A353851 counts compositions with all equal run-sums, ranks A353848.
A382876 counts permutations of prime indices with distinct run-sums, zeros A381636.
A383095 counts partitions having a unique permutation with equal run-sums, ranks A383099.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[Select[Permutations[#],SameQ@@Total/@Split[#]&]]==0&]],{n,0,15}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A353743 Least number with run-sum trajectory of length k; a(0) = 1.

Original entry on oeis.org

1, 2, 4, 12, 84, 1596, 84588, 11081028, 3446199708, 2477817590052, 4011586678294188, 14726534696017964148, 120183249654202605411828, 2146833388573021140471483564, 83453854313999050793547980583372, 7011542477899258250521520684673165324
Offset: 0

Views

Author

Gus Wiseman, Jun 11 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). The run-sum trajectory is obtained by repeatedly taking the run-sum transformation (A353832, A353847) until a squarefree number is reached. For example, the trajectory 12 -> 9 -> 7 corresponds to the partitions (2,1,1) -> (2,2) -> (4).

Examples

			The terms together with their prime indices begin:
      1: {}
      2: {1}
      4: {1,1}
     12: {1,1,2}
     84: {1,1,2,4}
   1596: {1,1,2,4,8}
  84588: {1,1,2,4,8,16}
		

Crossrefs

The ordered version is A072639, for run-lengths A333629.
The version for run-lengths is A325278, firsts in A182850 or A323014.
The run-sum trajectory is the iteration of A353832.
The first length-k row of A353840 has index a(k).
Other sequences pertaining to this trajectory are A353841-A353846.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A300273 ranks collapsible partitions, counted by A275870.
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.

Programs

  • Mathematica
    Join[{1,2},Table[2*Product[Prime[2^k],{k,0,n}],{n,0,6}]]

Formula

a(n > 1) = 2 * Product_{k=0..n-2} prime(2^k).
a(n > 0) = 2 * A325782(n).

A354580 Number of rucksack compositions of n: every distinct partial run has a different sum.

Original entry on oeis.org

1, 1, 2, 4, 6, 12, 22, 39, 68, 125, 227, 402, 710, 1280, 2281, 4040, 7196, 12780, 22623, 40136, 71121, 125863, 222616, 393305, 695059, 1227990, 2167059, 3823029, 6743268, 11889431, 20955548, 36920415, 65030404, 114519168, 201612634, 354849227
Offset: 0

Views

Author

Gus Wiseman, Jun 13 2022

Keywords

Comments

We define a partial run of a sequence to be any contiguous constant subsequence. The term rucksack is short for run-knapsack.

Examples

			The a(0) = 1 through a(5) = 12 compositions:
  ()  (1)  (2)    (3)      (4)        (5)
           (1,1)  (1,2)    (1,3)      (1,4)
                  (2,1)    (2,2)      (2,3)
                  (1,1,1)  (3,1)      (3,2)
                           (1,2,1)    (4,1)
                           (1,1,1,1)  (1,1,3)
                                      (1,2,2)
                                      (1,3,1)
                                      (2,1,2)
                                      (2,2,1)
                                      (3,1,1)
                                      (1,1,1,1,1)
		

Crossrefs

The knapsack version is A325676, ranked by A333223.
The non-partial version for partitions is A353837, ranked by A353838 (complement A353839).
The non-partial version is A353850, ranked by A353852.
The version for partitions is A353864, ranked by A353866.
The complete version for partitions is A353865, ranked by A353867.
These compositions are ranked by A354581.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A108917 counts knapsack partitions, ranked by A299702, strict A275972.
A238279 and A333755 count compositions by number of runs.
A275870 counts collapsible partitions, ranked by A300273.
A353836 counts partitions by number of distinct run-sums.
A353847 is the composition run-sum transformation.
A353851 counts compositions with all equal run-sums, ranked by A353848.
A353853-A353859 pertain to composition run-sum trajectory.
A353860 counts collapsible compositions, ranked by A354908.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@ IntegerPartitions[n],UnsameQ@@Total/@Union@@Subsets/@Split[#]&]],{n,0,15}]

Extensions

Terms a(16) onward from Max Alekseyev, Sep 10 2023

A353842 Last part of the trajectory of the partition run-sum transformation of n, using Heinz numbers.

Original entry on oeis.org

1, 2, 3, 3, 5, 6, 7, 5, 7, 10, 11, 7, 13, 14, 15, 7, 17, 14, 19, 15, 21, 22, 23, 15, 13, 26, 13, 21, 29, 30, 31, 11, 33, 34, 35, 21, 37, 38, 39, 13, 41, 42, 43, 33, 35, 46, 47, 21, 19, 26, 51, 39, 53, 26, 55, 35, 57, 58, 59, 35, 61, 62, 19, 13, 65, 66, 67, 51
Offset: 1

Views

Author

Gus Wiseman, May 25 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.
The run-sum trajectory is obtained by repeatedly taking the run-sum transformation (A353832) until a squarefree number is reached. For example, the trajectory 12 -> 9 -> 7 corresponds to the partitions (2,1,1) -> (2,2) -> (4).

Examples

			The partition run-sum trajectory of 87780 is: 87780 -> 65835 -> 51205 -> 19855 -> 2915, so a(87780) = 2915.
		

Crossrefs

The fixed points and image are A005117.
For run-lengths instead of sums we have A304464/A304465, counted by A325268.
These are the row-ends of A353840.
Other sequences pertaining to partition trajectory are A353841-A353846.
The version for compositions is A353855, run-ends of A353853.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A182850 and A323014 give frequency depth.
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, counted by A304442.
A353835 counts distinct run-sums of prime indices, weak A353861.
A353866 ranks rucksack partitions, counted by A353864.

Programs

  • Mathematica
    Table[NestWhile[Times@@Prime/@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]*k]&,n,!SquareFreeQ[#]&],{n,100}]

A354578 Number of ways to choose a divisor of each part of the n-th composition in standard order such that no adjacent divisors are equal.

Original entry on oeis.org

1, 1, 2, 0, 2, 1, 1, 0, 3, 1, 2, 0, 1, 1, 0, 0, 2, 2, 3, 0, 3, 1, 1, 0, 2, 1, 1, 0, 0, 0, 0, 0, 4, 1, 4, 0, 2, 2, 1, 0, 4, 2, 2, 0, 1, 1, 0, 0, 1, 2, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 3, 3, 0, 5, 2, 2, 0, 5, 1, 3, 0, 1, 1, 0, 0, 3, 3, 5, 0, 3, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Jun 11 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). Then a(n) is the number of integer compositions whose run-sums constitute the n-th composition in standard order (graded reverse-lexicographic, A066099).

Examples

			The terms 2^(n - 1) through 2^n - 1 sum to 2^n. As a triangle:
  1
  1
  2 0
  2 1 1 0
  3 1 2 0 1 1 0 0
  2 2 3 0 3 1 1 0 2 1 1 0 0 0 0 0
The a(n) compositions for selected n:
  n=1: n=2:   n=8:       n=32:          n=68:        n=130:
----------------------------------------------------------------------
  (1)  (2)    (4)        (6)            (4,3)        (6,2)
       (1,1)  (2,2)      (3,3)          (2,2,3)      (3,3,2)
              (1,1,1,1)  (2,2,2)        (4,1,1,1)    (6,1,1)
                         (1,1,1,1,1,1)  (1,1,1,1,3)  (3,3,1,1)
                                        (2,2,1,1,1)  (2,2,2,1,1)
                                                     (1,1,1,1,1,1,2)
		

Crossrefs

First column is 1 followed by A000005.
Row-sums are A011782.
Standard compositions are listed by A066099.
Positions of 0's are A354904.
Positions of first appearances are A354905.
A003242 counts anti-run compositions, ranked by A333489.
A005811 counts runs in binary expansion.
A300273 ranks collapsible partitions, counted by A275870.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353851 counts compositions with all equal run-sums, ranked by A353848.
A353840-A353846 pertain to partition run-sum trajectory.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353853-A353859 pertain to composition run-sum trajectory.
A353860 counts collapsible compositions.
A353863 counts run-sum-complete partitions.
A354584 gives run-sums of prime indices, rows ranked by A353832.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    antirunQ[y_]:=Length[Split[y]]==Length[y];
    Table[Length[Select[Tuples[Divisors/@stc[n]],antirunQ]],{n,0,30}]
Previous Showing 31-40 of 47 results. Next