A375133
Number of integer partitions of n whose maximal anti-runs have distinct maxima.
Original entry on oeis.org
1, 1, 1, 2, 3, 4, 5, 8, 10, 14, 17, 23, 29, 38, 47, 60, 74, 93, 113, 141, 171, 211, 253, 309, 370, 447, 532, 639, 758, 904, 1066, 1265, 1487, 1754, 2053, 2411, 2813, 3289, 3823, 4454, 5161, 5990, 6920, 8005, 9223, 10634, 12218, 14048, 16101, 18462, 21107
Offset: 0
The partition y = (6,5,5,4,3,3,2,1) has maximal anti-runs ((6,5),(5,4,3),(3,2,1)), with maxima (6,5,3), so y is counted under a(29).
The a(0) = 1 through a(9) = 14 partitions:
() (1) (2) (3) (4) (5) (6) (7) (8) (9)
(21) (31) (32) (42) (43) (53) (54)
(211) (41) (51) (52) (62) (63)
(311) (321) (61) (71) (72)
(411) (322) (422) (81)
(421) (431) (432)
(511) (521) (522)
(3211) (611) (531)
(3221) (621)
(4211) (711)
(4221)
(4311)
(5211)
(32211)
Includes all strict partitions
A000009.
For compositions instead of partitions we have
A374761.
The complement for minima instead of maxima is
A375404, ranks
A375399.
A011782 counts integer compositions.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums
A374706.
Cf.
A141199,
A279790,
A358830,
A358833,
A358836,
A358905,
A374704,
A374757,
A374758,
A375136,
A375400.
-
Table[Length[Select[IntegerPartitions[n], UnsameQ@@Max/@Split[#,UnsameQ]&]],{n,0,30}]
-
A_x(N) = {my(x='x+O('x^N), f=sum(i=0,N,(x^i)*prod(j=1,i-1,(1-x^(3*j))/(1-x^j)))); Vec(f)}
A_x(51) \\ John Tyler Rascoe, Aug 21 2024
A375134
Number of integer partitions of n whose maximal anti-runs have distinct minima.
Original entry on oeis.org
1, 1, 1, 2, 2, 4, 4, 6, 8, 11, 12, 18, 21, 28, 33, 43, 52, 66, 78, 98, 116, 145, 171, 209, 247, 300, 352, 424, 499, 595, 695, 826, 963, 1138, 1322, 1553, 1802, 2106, 2435, 2835, 3271, 3795, 4365, 5046, 5792, 6673, 7641, 8778, 10030, 11490, 13099, 14968, 17030
Offset: 0
The partition y = (6,5,5,4,3,3,2,1) has maximal anti-runs ((6,5),(5,4,3),(3,2,1)), with minima (5,3,1), so y is counted under a(29).
The a(1) = 1 through a(9) = 11 partitions:
(1) (2) (3) (4) (5) (6) (7) (8) (9)
(12) (13) (14) (15) (16) (17) (18)
(23) (24) (25) (26) (27)
(122) (123) (34) (35) (36)
(124) (125) (45)
(133) (134) (126)
(233) (135)
(1223) (144)
(234)
(1224)
(1233)
Includes all strict partitions
A000009.
For identical instead of distinct leaders we have
A115029.
A version for compositions instead of partitions is
A374518, ranks
A374638.
These partitions have ranks
A375398.
A011782 counts integer compositions.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums
A374706.
Cf.
A034296,
A141199,
A358830,
A358836,
A358905,
A374704,
A374757,
A374758,
A374761,
A375136,
A375400,
A375401.
-
Table[Length[Select[IntegerPartitions[n], UnsameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]
-
A_x(N) = {my(x='x+O('x^N), f=1+sum(i=1,N,(x^i)*prod(j=i+1,N-i,(1-x^(3*j))/(1-x^j)))); Vec(f)}
A_x(51) \\ John Tyler Rascoe, Aug 21 2024
A375398
Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are distinct.
Original entry on oeis.org
1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 50, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 82, 83, 85, 86, 87, 89, 90, 91, 93, 94, 95, 97, 98
Offset: 1
The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs ((2),(2,3,5),(5)), with minima (2,2,5), so 300 is not in the sequence.
The prime factors of 450 are {2,3,3,5,5}, with maximal anti-runs ((2,3),(3,5),(5)), with minima (2,3,5), so 450 is in the sequence.
Partitions (or reversed partitions) of this type are counted by
A375134.
For identical instead of distinct we have
A375396, counted by
A115029.
Cf.
A034296,
A036785,
A046660,
A065200,
A065201,
A358836,
A374632,
A374761,
A374767,
A374768,
A375136.
A375399
Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are not distinct.
Original entry on oeis.org
4, 8, 9, 12, 16, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 52, 54, 56, 60, 63, 64, 68, 72, 76, 80, 81, 84, 88, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 121, 124, 125, 128, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 162, 164, 168, 169, 171
Offset: 1
The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs ((2),(2,3,5),(5)), with minima (2,2,5), so 300 is in the sequence.
The prime factors of 450 are {2,3,3,5,5}, with maximal anti-runs ((2,3),(3,5),(5)), with minima (2,3,5), so 450 is not in the sequence.
The terms together with their prime indices begin:
4: {1,1}
8: {1,1,1}
9: {2,2}
12: {1,1,2}
16: {1,1,1,1}
20: {1,1,3}
24: {1,1,1,2}
25: {3,3}
27: {2,2,2}
28: {1,1,4}
32: {1,1,1,1,1}
36: {1,1,2,2}
40: {1,1,1,3}
44: {1,1,5}
45: {2,2,3}
48: {1,1,1,1,2}
The complement for maxima instead of minima is
A375402, counted by
A375133.
Partitions (or reversed partitions) of this type are counted by
A375404.
A375404
Number of integer partitions of n whose minima of maximal anti-runs are not all different.
Original entry on oeis.org
0, 0, 1, 1, 3, 3, 7, 9, 14, 19, 30, 38, 56, 73, 102, 133, 179, 231, 307, 392, 511, 647, 831, 1046, 1328, 1658, 2084, 2586, 3219, 3970, 4909, 6016, 7386, 9005, 10988, 13330, 16175, 19531, 23580, 28350, 34067, 40788, 48809, 58215, 69383, 82461, 97917, 115976
Offset: 0
The a(0) = 0 through a(8) = 14 reversed partitions:
. . (11) (111) (22) (113) (33) (115) (44)
(112) (1112) (114) (223) (116)
(1111) (11111) (222) (1114) (224)
(1113) (1123) (1115)
(1122) (1222) (1124)
(11112) (11113) (1133)
(111111) (11122) (2222)
(111112) (11114)
(1111111) (11123)
(11222)
(111113)
(111122)
(1111112)
(11111111)
The complement for maxima instead of minima is
A375133, ranks
A375402.
These partitions are ranked by
A375399.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums
A374706.
-
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]
A375396
Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71
Offset: 1
The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs {{2},{2,3,5},{5}}, with minima (2,2,5), so 300 is not in the sequence.
The complement is a superset of
A036785.
Partitions of this type are counted by
A115029.
For distinct instead of identical minima we have
A375398, counts
A375134.
Cf.
A000005,
A013661,
A046660,
A272919,
A319066,
A358905,
A374686,
A374704,
A374742,
A375133,
A375136,
A375401.
-
Select[Range[100],SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]
-
is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) == e[1], 1); \\ Amiram Eldar, Oct 26 2024
A375402
Numbers whose maximal anti-runs of weakly increasing prime factors (with multiplicity) have distinct maxima.
Original entry on oeis.org
1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 89
Offset: 1
The maximal anti-runs of prime factors of 150 are ((2,3,5),(5)), with maxima (5,5), so 150 is not in the sequence.
The maximal anti-runs of prime factors of 180 are ((2),(2,3),(3,5)), with maxima (2,3,5), so 180 is in the sequence.
The maximal anti-runs of prime factors of 300 are ((2),(2,3,5),(5)), with maxima (2,5,5), so 300 is not in the sequence.
For identical instead of distinct we have
A065200, complement
A065201.
A version for compositions (instead of partitions) is
A374767.
Partitions of this type are counted by
A375133.
A375397
Numbers divisible by the square of some prime factor other than the least. Non-hooklike numbers.
Original entry on oeis.org
18, 36, 50, 54, 72, 75, 90, 98, 100, 108, 126, 144, 147, 150, 162, 180, 196, 198, 200, 216, 225, 234, 242, 245, 250, 252, 270, 288, 294, 300, 306, 324, 338, 342, 350, 360, 363, 375, 378, 392, 396, 400, 414, 432, 441, 450, 468, 484, 486, 490, 500, 504, 507, 522
Offset: 1
The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs ((2),(2,3,5),(5)), with minima (2,2,5), so 300 is in the sequence.
The terms together with their prime indices begin:
18: {1,2,2}
36: {1,1,2,2}
50: {1,3,3}
54: {1,2,2,2}
72: {1,1,1,2,2}
75: {2,3,3}
90: {1,2,2,3}
98: {1,4,4}
100: {1,1,3,3}
108: {1,1,2,2,2}
126: {1,2,2,4}
144: {1,1,1,1,2,2}
For distinct instead of identical minima we have
A375399, counts
A375404.
Partitions of this type are counted by
A375405.
Cf.
A000005,
A013661,
A046660,
A272919,
A319066,
A358905,
A374686,
A374704,
A374742,
A375133,
A375136,
A375401.
-
Select[Range[100],!SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]
-
is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) > e[1], 0); \\ Amiram Eldar, Oct 26 2024
A375403
Numbers whose maximal anti-runs of weakly increasing prime factors (with multiplicity) do not have distinct maxima.
Original entry on oeis.org
4, 8, 9, 16, 18, 24, 25, 27, 32, 36, 40, 48, 49, 50, 54, 56, 64, 72, 75, 80, 81, 88, 96, 98, 100, 104, 108, 112, 120, 121, 125, 128, 135, 136, 144, 147, 150, 152, 160, 162, 168, 169, 176, 184, 189, 192, 196, 200, 208, 216, 224, 225, 232, 240, 242, 243, 245
Offset: 1
The maximal anti-runs of prime factors of 150 are ((2,3,5),(5)), with maxima (5,5), so 150 is in the sequence.
The maximal anti-runs of prime factors of 180 are ((2),(2,3),(3,5)), with maxima (2,3,5), so 180 is not in the sequence.
The maximal anti-runs of prime factors of 300 are ((2),(2,3,5),(5)), with maxima (2,5,5), so 300 is in the sequence.
The terms together with their prime indices begin:
4: {1,1}
8: {1,1,1}
9: {2,2}
16: {1,1,1,1}
18: {1,2,2}
24: {1,1,1,2}
25: {3,3}
27: {2,2,2}
32: {1,1,1,1,1}
36: {1,1,2,2}
40: {1,1,1,3}
48: {1,1,1,1,2}
For identical instead of distinct we have
A065201, complement
A065200.
Partitions of this type are counted by
A375401.
Cf.
A046660,
A066328,
A358836,
A374632,
A374706,
A374768,
A374767,
A375128,
A375136,
A375396,
A375400.
A375405
Number of integer partitions of n with a repeated part other than the least.
Original entry on oeis.org
0, 0, 0, 0, 0, 1, 1, 3, 5, 8, 13, 20, 29, 42, 62, 83, 117, 158, 214, 283, 377, 488, 641, 823, 1058, 1345, 1714, 2154, 2713, 3387, 4222, 5230, 6474, 7959, 9782, 11956, 14591, 17737, 21529, 26026, 31422, 37811, 45425, 54418, 65097, 77652, 92510, 109943, 130468
Offset: 0
The a(0) = 0 through a(10) = 13 partitions:
. . . . . (221) (2211) (331) (332) (441) (442)
(2221) (3221) (3321) (3322)
(22111) (3311) (4221) (3331)
(22211) (22221) (4411)
(221111) (32211) (5221)
(33111) (32221)
(222111) (33211)
(2211111) (42211)
(222211)
(322111)
(331111)
(2221111)
(22111111)
The complement for maxima instead of minima is
A034296.
These partitions have ranks
A375397.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums
A374706.
-
Table[Length[Select[IntegerPartitions[n], !SameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]
- or -
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@DeleteCases[#,Min@@#]&]],{n,0,30}]
-
A_x(N) = {my(x='x+O('x^N), f=sum(i=1,N,sum(j=i+1,N-i, ((x^(i+(2*j)))/(1-x^i))*prod(k=i+1,N-i-(2*j), if(kJohn Tyler Rascoe, Aug 21 2024
Showing 1-10 of 10 results.
Comments