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.
A375401
Number of integer partitions of n whose maximal anti-runs do not all have different maxima.
Original entry on oeis.org
0, 0, 1, 1, 2, 3, 6, 7, 12, 16, 25, 33, 48, 63, 88, 116, 157, 204, 272, 349, 456, 581, 749, 946, 1205, 1511, 1904, 2371, 2960, 3661, 4538, 5577, 6862, 8389, 10257, 12472, 15164, 18348, 22192, 26731, 32177, 38593, 46254, 55256, 65952, 78500, 93340, 110706
Offset: 0
The partition y = (3,2,2,1) has maximal ant-runs ((3,2),(2,1)), with maxima (3,2), so y is not counted under a(8).
The a(2) = 1 through a(8) = 12 partitions:
(11) (111) (22) (221) (33) (331) (44)
(1111) (2111) (222) (2221) (332)
(11111) (2211) (4111) (2222)
(3111) (22111) (3311)
(21111) (31111) (5111)
(111111) (211111) (22211)
(1111111) (32111)
(41111)
(221111)
(311111)
(2111111)
(11111111)
The complement for minima instead of maxima is
A375134, ranks
A375398.
These partitions have Heinz numbers
A375403.
The reverse for identical instead of distinct is
A375405, ranks
A375397.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums
A374706.
Cf.
A034296,
A115029,
A141199,
A279790,
A358830,
A358836,
A374632,
A374761,
A375136,
A375396,
A375400.
-
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Max/@Split[#,UnsameQ]&]],{n,0,30}]
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
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
Showing 1-5 of 5 results.
Comments