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
Comments