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
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-5 of 5 results.
Comments