A275870 -id:A275870 - cp's OEIS frontend

A281145 Number of same-trees of weight n.

1, 2, 2, 6, 2, 14, 2, 54, 10, 38, 2, 494, 2, 134, 42, 4470, 2, 3422, 2, 10262, 138, 2054, 2, 490926, 34, 8198, 1514, 314294, 2, 628318, 2, 30229110, 2058, 131078, 162, 150147342, 2, 524294, 8202, 628073814, 2, 109952254, 2, 371210294, 207370, 8388614, 2

Offset: 1

Gus Wiseman, Jan 15 2017

nonn

A same-tree is either: (case 1) a positive integer, or (case 2) a finite sequence of two or more same-trees all having the same weight, where the weight in case 2 is the sum of weights.

			The a(6)=14 same-trees are:
6,
(33),
(222),
(3(111)), ((111)3),
(22(11)), (2(11)2), ((11)22),
(2(11)(11)), ((11)2(11)), ((11)(11)2),
((111)(111)), ((11)(11)(11)), (111111).
The a(9)=10 same-trees are:
9,
(333),
(33(111)), (3(111)3), ((111)33),
(3(111)(111)), ((111)3(111)), ((111)(111)3),
((111)(111)(111)), (111111111).

G. C. Greubel, Table of n, a(n) for n = 1..4000

Cf. A196545, A260685, A273873, A275870, A006241.

a[n_]:=1+DivisorSum[n,b[#]^(n/#)&]-b[n]/.b->a;
Array[a,47]

seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + sumdiv(n, d, v[n/d]^d)); v} \\ Andrew Howroyd, Aug 20 2018

a(n) = 1 + Sum a(d)^(n/d) where the sum is over divisors less than n.

A353846 Triangle read by rows where T(n,k) is the number of integer partitions of n with partition run-sum trajectory of length k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 1, 0, 0, 2, 2, 1, 0, 0, 3, 4, 0, 0, 0, 0, 4, 6, 1, 0, 0, 0, 0, 5, 9, 1, 0, 0, 0, 0, 0, 6, 11, 4, 1, 0, 0, 0, 0, 0, 8, 20, 2, 0, 0, 0, 0, 0, 0, 0, 10, 25, 7, 0, 0, 0, 0, 0, 0, 0, 0, 12, 37, 6, 1, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, May 26 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 run-sums (or condensations) until a strict partition is reached. For example, the trajectory of (2,1,1) is (2,1,1) -> (2,2) -> (4).

Also the number of integer partitions of n with Kimberling's depth statistic (see A237685, A237750) equal to k-1.

			Triangle begins:
   1
   0   1
   0   1   1
   0   2   1   0
   0   2   2   1   0
   0   3   4   0   0   0
   0   4   6   1   0   0   0
   0   5   9   1   0   0   0   0
   0   6  11   4   1   0   0   0   0
   0   8  20   2   0   0   0   0   0   0
   0  10  25   7   0   0   0   0   0   0   0
   0  12  37   6   1   0   0   0   0   0   0   0
   0  15  47  13   2   0   0   0   0   0   0   0   0
   0  18  67  15   1   0   0   0   0   0   0   0   0   0
   0  22  85  25   3   0   0   0   0   0   0   0   0   0   0
   0  27 122  26   1   0   0   0   0   0   0   0   0   0   0   0
For example, row n = 8 counts the following partitions (empty columns indicated by dots):
.  (8)    (44)        (422)     (4211)  .  .  .  .
   (53)   (332)       (32111)
   (62)   (611)       (41111)
   (71)   (2222)      (221111)
   (431)  (3221)
   (521)  (3311)
          (5111)
          (22211)
          (311111)
          (2111111)
          (11111111)

Row-sums are A000041.
Column k = 1 is A000009.
Column k = 2 is A237685.
Column k = 3 is A237750.
The version for run-lengths instead of run-sums is A225485 or A325280.
This statistic (trajectory length) is ranked by A353841 and A326371.
The version for compositions is A353859, see also A353847-A353858.
A005811 counts runs in binary expansion.
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.
A353838 ranks partitions with all distinct run-sums, counted by A353837.
A353840-A353846 pertain to partition run-sum trajectory.
A353845 counts partitions whose run-sum trajectory ends in a singleton.
Cf. A008284, A047966, A181819, A325239, A325277, A353834, A353865.

rsn[y_]:=If[y=={},{},NestWhileList[Reverse[Sort[Total/@ Split[Sort[#]]]]&,y,!UnsameQ@@#&]];
Table[Length[Select[IntegerPartitions[n],Length[rsn[#]]==k&]],{n,0,15},{k,0,n}]

A304660 A run-length describing inverse to A181819. The multiplicity of prime(k) in a(n) is the k-th smallest prime index of n, which is A112798(n,k).

Original entry on oeis.org

1, 2, 4, 6, 8, 18, 16, 30, 36, 54, 32, 150, 64, 162, 108, 210, 128, 450, 256, 750, 324, 486, 512, 1470, 216, 1458, 900, 3750, 1024, 2250, 2048, 2310, 972, 4374, 648, 7350, 4096, 13122, 2916, 10290, 8192, 11250, 16384, 18750, 4500, 39366, 32768, 25410, 1296

Offset: 1

Gus Wiseman, May 16 2018

nonn

A permutation of A133808. a(n) is the smallest member m of A133808 such that A181819(m) = n.

			Sequence of normalized prime multisets together with the normalized prime multisets of their images begins:
   1:        {} -> {}
   2:       {1} -> {1}
   3:       {2} -> {1,1}
   4:     {1,1} -> {1,2}
   5:       {3} -> {1,1,1}
   6:     {1,2} -> {1,2,2}
   7:       {4} -> {1,1,1,1}
   8:   {1,1,1} -> {1,2,3}
   9:     {2,2} -> {1,1,2,2}
  10:     {1,3} -> {1,2,2,2}
  11:       {5} -> {1,1,1,1,1}
  12:   {1,1,2} -> {1,2,3,3}
  13:       {6} -> {1,1,1,1,1,1}
  14:     {1,4} -> {1,2,2,2,2}
  15:     {2,3} -> {1,1,2,2,2}
  16: {1,1,1,1} -> {1,2,3,4}
  17:       {7} -> {1,1,1,1,1,1,1}
  18:   {1,2,2} -> {1,2,2,3,3}

Cf. A055932, A056239, A112798, A130091, A133808, A181819, A181821, A182850, A182857, A275870, A304455.

Table[With[{y=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]},Times@@Power[Array[Prime,Length[y]],y]],{n,100}]

a(n) = Product_{i = 1..Omega(n)} prime(i)^A112798(n,i).

A353840 Trajectory of the partition run-sum transformation of n, using Heinz numbers.

Original entry on oeis.org

1, 2, 3, 4, 3, 5, 6, 7, 8, 5, 9, 7, 10, 11, 12, 9, 7, 13, 14, 15, 16, 7, 17, 18, 14, 19, 20, 15, 21, 22, 23, 24, 15, 25, 13, 26, 27, 13, 28, 21, 29, 30, 31, 32, 11, 33, 34, 35, 36, 21, 37, 38, 39, 40, 25, 13, 41, 42, 43, 44, 33, 45, 35, 46, 47, 48, 21, 49, 19

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.
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 given in row 12 corresponds to the partitions (2,1,1) -> (2,2) -> (4).
This is the iteration of the transformation f described by Kimberling at A237685.

			Triangle begins:
   1
   2
   3
   4  3
   5
   6
   7
   8  5
   9  7
  10
  11
  12  9  7
Row 87780 is the following trajectory (left column), 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 version for run-lengths instead of sums is A325239 or A325277.
This is the iteration of A353832, with composition version A353847.
Row-lengths are A353841, counted by A353846.
Final terms are A353842.
Counting rows by final omega gives A353843.
Rows ending in a prime number are A353844, counted by A353845.
These sequences for compositions are A353853-A353859.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A182850 or A323014 gives frequency depth.
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.
A353862 gives greatest run-sum of prime indices, least A353931.
Cf. A071625, A073093, A181819, A323023, A353743, A353834, A353864, A353865, A353866, A353867.

Table[NestWhileList[Times@@Prime/@Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]&,n,Not@*SquareFreeQ],{n,30}]

A362609 Number of integer partitions of n with more than one part of least multiplicity.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 5, 9, 14, 19, 26, 42, 51, 74, 103, 136, 174, 246, 303, 411, 523, 674, 844, 1114, 1364, 1748, 2174, 2738, 3354, 4247, 5139, 6413, 7813, 9613, 11630, 14328, 17169, 20958, 25180, 30497, 36401, 44025, 52285, 62834, 74626, 89111, 105374, 125662

Offset: 0

Gus Wiseman, Apr 30 2023

nonn

These are partitions where no part appears fewer times than all of the others.

			The partition (4,2,2,1) has least multiplicity 1, and two parts of multiplicity 1 (namely 1 and 4), so is counted under a(9).
The a(3) = 1 through a(9) = 14 partitions:
  (21)  (31)  (32)  (42)    (43)    (53)     (54)
              (41)  (51)    (52)    (62)     (63)
                    (321)   (61)    (71)     (72)
                    (2211)  (421)   (431)    (81)
                            (3211)  (521)    (432)
                                    (3221)   (531)
                                    (3311)   (621)
                                    (4211)   (3321)
                                    (32111)  (4221)
                                             (4311)
                                             (5211)
                                             (42111)
                                             (222111)
                                             (321111)

For parts instead of multiplicities we have A117989, ranks A283050.
For median instead of co-mode we have A238479, complement A238478.
These partitions have ranks A362606.
For mode instead of co-mode we have A362607, ranks A362605.
For mode complement instead of co-mode we have A362608, ranks A356862.
The complement is counted by A362610, ranks A359178.
A000041 counts integer partitions.
A275870 counts collapsible partitions.
A359893 counts partitions by median.
A362611 counts modes in prime factorization, co-modes A362613.
A362614 counts partitions by number of modes, co-modes A362615.
Cf. A002865, A008284, A053263, A098859, A304442, A353864, A360071, A362612.

Table[Length[Select[IntegerPartitions[n],Count[Length/@Split[#],Min@@Length/@Split[#]]>1&]],{n,0,30}]

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}]

A353866 Heinz numbers of rucksack partitions. Every prime-power divisor has a different sum of prime indices.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jun 06 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.

In a knapsack partition (A108917, ranked by A299702), every submultiset has a different sum, so these are run-knapsack partitions or rucksack partitions for short.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    6: {1,2}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   16: {1,1,1,1}
The sequence contains 18 because its prime-power divisors {1,2,3,9} have prime indices {}, {1}, {2}, {2,2} with distinct sums {0,1,2,4}. On the other hand, 12 is not in the sequence because {2} and {1,1} have the same sum.

Knapsack partitions are counted by A108917, ranked by A299702.
The strong case is A353838, counted by A353837, complement A353839.
These partitions are counted by A353864.
The complete case is A353867, counted by A353865.
The complement is A354583.
A000041 counts partitions, strict A000009.
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.
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.
Cf. A018818, A067340, A181819, A304442, A316413, A325862, A353833, A353835, A353861, A353931.

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

A305563 Number of reducible integer partitions of n.

Original entry on oeis.org

1, 2, 3, 4, 7, 7, 15, 16, 27, 30, 56, 56, 100, 105, 157, 188, 287, 303, 470, 524, 724, 850, 1197, 1339, 1856, 2135, 2814, 3305, 4360, 4951, 6532, 7561, 9563, 11195, 14165, 16328, 20631, 23866, 29471, 34320, 42336, 48672, 59872, 69139, 83625, 96911, 117153

Offset: 1

Gus Wiseman, Jun 05 2018

nonn

A multiset m whose distinct elements are m_1, m_2, ..., m_k with multiplicities y_1, y_2, ..., y_k is reducible if either m is of size 1 or gcd(m_1, ..., m_k) = 1 and the multiset {y_1, ..., y_k} is also reducible.

			The a(6) = 7 reducible integer partitions are (6), (51), (411), (321), (3111), (21111), (111111). Missing from this list are (42), (33), (222), (2211).

Cf. A007916, A071625, A181819, A182850, A182857, A275870, A304465, A304660, A304687, A304818, A305564, A305565, A305566.

ptnredQ[y_]:=Or[Length[y]==1,And[GCD@@y==1,ptnredQ[Sort[Length/@Split[y],Greater]]]];
Table[Length[Select[IntegerPartitions[n],ptnredQ]],{n,20}]

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]]&]

A289078 Number of orderless same-trees of weight n.

Original entry on oeis.org

1, 2, 2, 5, 2, 9, 2, 22, 6, 11, 2, 94, 2, 13, 12, 334, 2, 205, 2, 210, 14, 17, 2, 7218, 8, 19, 68, 443, 2, 1687, 2, 69109, 18, 23, 16, 167873, 2, 25, 20, 89969, 2, 7041, 2, 1548, 644, 29, 2, 36094795, 10, 3078, 24, 2604, 2, 1484102, 20, 1287306, 26, 35, 2

Offset: 1

Gus Wiseman, Jun 23 2017

nonn

An orderless same-tree t is either: (case 1) a positive integer, or (case 2) a finite multiset of two or more orderless same-trees, all having the same weight. The weight of t in case 1 is the number itself, and in case 2 it is the sum of weights of the branches. For example {{{3,{1,1,1}},{2,{1,1},{1,1}}},{{{1,1,1},{1,1,1}},{{1,1},{1,1},{1,1}}}} is an orderless same-tree of weight 24 with 2 branches.

			The a(6)=9 orderless same-trees are: 6, (33), (3(111)), (222), (22(11)), (2(11)(11)), ((11)(11)(11)), ((111)(111)), (111111).

Alois P. Heinz, Table of n, a(n) for n = 1..2500

Cf. A196545, A273873, A275870, A281145, A281146, A289079.

with(numtheory):
a:= proc(n) option remember; 1 + add(
      binomial(a(n/d)+d-1, d), d=divisors(n) minus {1})
    end:
seq(a(n), n=1..60);  # Alois P. Heinz, Jul 05 2017

a[n_]:=If[n===1,1,1+Sum[Binomial[a[n/d]+d-1,d],{d,Rest[Divisors[n]]}]];
Array[a,100]

seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + sumdiv(n, d, binomial(v[n/d]+d-1, d))); v} \\ Andrew Howroyd, Aug 20 2018

a(n) = 1 + Sum_{d|n, d>1} binomial(a(n/d)+d-1, d).

cp's OEIS Frontend

A281145 Number of same-trees of weight n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A353846 Triangle read by rows where T(n,k) is the number of integer partitions of n with partition run-sum trajectory of length k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A304660 A run-length describing inverse to A181819. The multiplicity of prime(k) in a(n) is the k-th smallest prime index of n, which is A112798(n,k).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A353840 Trajectory of the partition run-sum transformation of n, using Heinz numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362609 Number of integer partitions of n with more than one part of least multiplicity.

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

A353866 Heinz numbers of rucksack partitions. Every prime-power divisor has a different sum of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A305563 Number of reducible integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author