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
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
Number of rows in
A354584 summing to n that are strictly increasing.
These partitions are ranked by
A357875.
-
Table[Length[Select[IntegerPartitions[n],GreaterEqual@@Total/@Split[#]&]],{n,0,30}] (* Gus Wiseman, Oct 22 2022 *)
A357876
The run-sums of the prime indices of n are not weakly increasing.
Original entry on oeis.org
24, 45, 48, 80, 90, 96, 120, 135, 160, 168, 175, 180, 189, 192, 224, 240, 264, 270, 275, 288, 297, 312, 315, 320, 336, 350, 360, 378, 384, 405, 408, 448, 456, 480, 495, 525, 528, 539, 540, 550, 552, 560, 567, 576, 585, 594, 600, 624, 630, 637, 640, 672, 696
Offset: 1
The terms together with their prime indices begin:
24: {1,1,1,2}
45: {2,2,3}
48: {1,1,1,1,2}
80: {1,1,1,1,3}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
120: {1,1,1,2,3}
135: {2,2,2,3}
160: {1,1,1,1,1,3}
168: {1,1,1,2,4}
175: {3,3,4}
180: {1,1,2,2,3}
189: {2,2,2,4}
192: {1,1,1,1,1,1,2}
For example, the prime indices of 24 are (1,1,1,2), with run-sums (3,2), which are not weakly increasing, so 24 is in the sequence.
These are the indices of rows in
A354584 that are not weakly increasing.
These partitions are counted by
A357878.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!LessEqual@@Total/@Split[primeMS[#]]&]
A357850
Numbers whose prime indices do not have weakly decreasing run-sums. Heinz numbers of the partitions counted by A357865.
Original entry on oeis.org
6, 10, 14, 15, 18, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 38, 39, 42, 44, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111
Offset: 1
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}
26: {1,6}
28: {1,1,4}
30: {1,2,3}
33: {2,5}
34: {1,7}
35: {3,4}
36: {1,1,2,2}
38: {1,8}
39: {2,6}
42: {1,2,4}
These are the indices of rows in
A354584 that are not weakly decreasing.
These partitions are counted by
A357865.
The opposite (not weakly increasing) version is
A357876, counted by
A357878.
Cf.
A118914,
A181819,
A300273,
A304405,
A304428,
A304430,
A304442,
A353832,
A353864,
A353932,
A357864,
A357875.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!GreaterEqual@@Total/@Split[primeMS[#]]&]
A357865
Number of integer partitions of n whose run-sums are not weakly increasing.
Original entry on oeis.org
0, 0, 0, 1, 1, 4, 5, 10, 13, 22, 31, 45, 57, 85, 115, 155, 199, 267, 344, 452, 577, 744, 940, 1191, 1486, 1877, 2339, 2910, 3595, 4442, 5453, 6688, 8162, 9960, 12089, 14662, 17698, 21365, 25703, 30869, 36961, 44207, 52728, 62801, 74644, 88587, 104930, 124113
Offset: 0
The a(0) = 0 through a(8) = 13 partitions:
. . . (21) (31) (32) (42) (43) (53)
(41) (51) (52) (62)
(221) (321) (61) (71)
(311) (411) (331) (332)
(2211) (421) (431)
(511) (521)
(2221) (611)
(3211) (3221)
(4111) (3311)
(22111) (4211)
(5111)
(22211)
(32111)
Number of rows in
A354584 summing to n that are not weakly decreasing.
These partitions are ranked by
A357850.
The opposite (not weakly decreasing) version is
A357878, ranked by
A357876.
-
Table[Length[Select[IntegerPartitions[n],!LessEqual@@Total/@Split[#]&]],{n,0,30}]
A357863
Numbers whose prime indices do not have strictly increasing run-sums. Heinz numbers of the partitions not counted by A304428.
Original entry on oeis.org
12, 24, 40, 45, 48, 60, 63, 80, 84, 90, 96, 112, 120, 126, 132, 135, 144, 156, 160, 168, 175, 180, 189, 192, 204, 224, 228, 240, 252, 264, 270, 275, 276, 280, 288, 297, 300, 312, 315, 320, 325, 336, 348, 350, 351, 352, 360, 372, 378, 384, 405, 408, 420, 440
Offset: 1
The terms together with their prime indices begin:
12: {1,1,2}
24: {1,1,1,2}
40: {1,1,1,3}
45: {2,2,3}
48: {1,1,1,1,2}
60: {1,1,2,3}
63: {2,2,4}
80: {1,1,1,1,3}
84: {1,1,2,4}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
112: {1,1,1,1,4}
120: {1,1,1,2,3}
126: {1,2,2,4}
132: {1,1,2,5}
135: {2,2,2,3}
144: {1,1,1,1,2,2}
156: {1,1,2,6}
These are the indices of rows in
A354584 that are not strictly increasing.
The weak (not weakly increasing) version is
A357876, counted by
A357878.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!Less@@Total/@Split[primeMS[#]]&]
Showing 1-5 of 5 results.
Comments