A359893
Triangle read by rows where T(n,k) is the number of integer partitions of n with median k, where k ranges from 1 to n in steps of 1/2.
Original entry on oeis.org
1, 1, 0, 1, 1, 1, 0, 0, 1, 2, 0, 2, 0, 0, 0, 1, 3, 0, 1, 2, 0, 0, 0, 0, 1, 4, 1, 2, 0, 3, 0, 0, 0, 0, 0, 1, 6, 1, 3, 0, 1, 3, 0, 0, 0, 0, 0, 0, 1, 8, 1, 6, 0, 2, 0, 4, 0, 0, 0, 0, 0, 0, 0, 1, 11, 2, 7, 1, 3, 0, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 1
Offset: 1
Triangle begins:
1
1 0 1
1 1 0 0 1
2 0 2 0 0 0 1
3 0 1 2 0 0 0 0 1
4 1 2 0 3 0 0 0 0 0 1
6 1 3 0 1 3 0 0 0 0 0 0 1
8 1 6 0 2 0 4 0 0 0 0 0 0 0 1
11 2 7 1 3 0 1 4 0 0 0 0 0 0 0 0 1
15 2 10 3 4 0 2 0 5 0 0 0 0 0 0 0 0 0 1
20 3 13 3 7 0 3 0 1 5 0 0 0 0 0 0 0 0 0 0 1
26 4 19 3 11 1 4 0 2 0 6 0 0 0 0 0 0 0 0 0 0 0 1
For example, row n = 8 counts the following partitions:
611 4211 422 . 332 . 44 . . . . . . . 8
5111 521 431 53
32111 2222 62
41111 3221 71
221111 3311
311111 22211
2111111
11111111
Row lengths are 2n-1 =
A005408(n-1).
The median statistic is ranked by
A360005(n)/2.
A240219 counts partitions w/ the same mean as median, complement
A359894.
-
Table[Length[Select[IntegerPartitions[n], Median[#]==k&]],{n,1,10},{k,1,n,1/2}]
A360005
Two times the median of the multiset of prime indices of n.
Original entry on oeis.org
2, 4, 2, 6, 3, 8, 2, 4, 4, 10, 2, 12, 5, 5, 2, 14, 4, 16, 2, 6, 6, 18, 2, 6, 7, 4, 2, 20, 4, 22, 2, 7, 8, 7, 3, 24, 9, 8, 2, 26, 4, 28, 2, 4, 10, 30, 2, 8, 6, 9, 2, 32, 4, 8, 2, 10, 11, 34, 3, 36, 12, 4, 2, 9, 4, 38, 2, 11, 6, 40, 2, 42, 13, 6, 2, 9, 4, 44, 2
Offset: 2
The prime indices of 360 are {1,1,1,2,2,3}, with median 3/2, so a(360) = 3.
A316413 lists numbers whose prime indices have integer mean.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[2*Median[prix[n]],{n,2,100}]
A359901
Triangle read by rows where T(n,k) is the number of integer partitions of n with median k = 1..n.
Original entry on oeis.org
1, 1, 1, 1, 0, 1, 2, 2, 0, 1, 3, 1, 0, 0, 1, 4, 2, 3, 0, 0, 1, 6, 3, 1, 0, 0, 0, 1, 8, 6, 2, 4, 0, 0, 0, 1, 11, 7, 3, 1, 0, 0, 0, 0, 1, 15, 10, 4, 2, 5, 0, 0, 0, 0, 1, 20, 13, 7, 3, 1, 0, 0, 0, 0, 0, 1, 26, 19, 11, 4, 2, 6, 0, 0, 0, 0, 0, 1
Offset: 1
Triangle begins:
1
1 1
1 0 1
2 2 0 1
3 1 0 0 1
4 2 3 0 0 1
6 3 1 0 0 0 1
8 6 2 4 0 0 0 1
11 7 3 1 0 0 0 0 1
15 10 4 2 5 0 0 0 0 1
20 13 7 3 1 0 0 0 0 0 1
26 19 11 4 2 6 0 0 0 0 0 1
35 24 14 5 3 1 0 0 0 0 0 0 1
45 34 17 8 4 2 7 0 0 0 0 0 0 1
58 42 23 12 5 3 1 0 0 0 0 0 0 0 1
For example, row n = 9 counts the following partitions:
(7,1,1) (5,2,2) (3,3,3) (4,4,1) . . . . (9)
(6,1,1,1) (6,2,1) (4,3,2)
(3,3,1,1,1) (3,2,2,2) (5,3,1)
(4,2,1,1,1) (4,2,2,1)
(5,1,1,1,1) (4,3,1,1)
(3,2,1,1,1,1) (2,2,2,2,1)
(4,1,1,1,1,1) (3,2,2,1,1)
(2,2,1,1,1,1,1)
(3,1,1,1,1,1,1)
(2,1,1,1,1,1,1,1)
(1,1,1,1,1,1,1,1,1)
Including half-steps gives
A359893.
The median statistic is ranked by
A360005(n)/2.
A240219 counts partitions w/ the same mean as median, complement
A359894.
-
Table[Length[Select[IntegerPartitions[n],Median[#]==k&]],{n,15},{k,n}]
A359908
Numbers whose prime indices have integer median.
Original entry on oeis.org
2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 34, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 59, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 73, 75, 76, 78, 79, 80, 81, 82, 83
Offset: 1
The prime indices of 180 are {1,1,2,2,3}, with median 2, so 180 is in the sequence.
The prime indices of 360 are {1,1,1,2,2,3}, with median 3/2, so 360 is not in the sequence.
For mean instead of median we have
A316413.
The median of prime indices is given by
A360005/2.
The case of integer mean also is
A360009.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],IntegerQ[Median[prix[#]]]&]
A307683
Number of partitions of n having a non-integer median.
Original entry on oeis.org
0, 0, 1, 0, 2, 1, 4, 1, 7, 5, 11, 8, 18, 17, 31, 28, 47, 51, 75, 81, 119, 134, 181, 206, 277, 323, 420, 488, 623, 737, 922, 1084, 1352, 1597, 1960, 2313, 2819, 3330, 4029, 4743, 5704, 6722, 8030, 9434, 11234, 13175, 15601, 18262, 21552, 25184, 29612, 34518
Offset: 1
a(7) counts these 4 partitions: [6,1], [5,2], [4,3], [3,2,1,1].
Cf.
A000016,
A051293,
A067538,
A082550,
A240219,
A240850,
A316413,
A326567/
A326568,
A327475,
A359897,
A360005.
A359907
Number of strict integer partitions of n with integer median.
Original entry on oeis.org
0, 1, 1, 1, 2, 1, 4, 2, 6, 4, 9, 6, 14, 10, 18, 16, 27, 23, 36, 34, 51, 49, 67, 68, 94, 95, 122, 129, 166, 174, 217, 233, 287, 308, 371, 405, 487, 528, 622, 683, 805, 880, 1024, 1127, 1305, 1435, 1648, 1818, 2086, 2295, 2611, 2882, 3273, 3606, 4076, 4496, 5069
Offset: 0
The a(1) = 1 through a(14) = 18 partitions (A..E = 10..14):
1 2 3 4 5 6 7 8 9 A B C D E
31 42 421 53 432 64 542 75 643 86
51 62 531 73 632 84 652 95
321 71 621 82 641 93 742 A4
431 91 731 A2 751 B3
521 532 821 B1 832 C2
541 543 841 D1
631 642 931 653
721 651 A21 743
732 6421 752
741 761
831 842
921 851
5421 932
941
A31
B21
7421
The median statistic is ranked by
A360005(n)/2.
-
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&IntegerQ[Median[#]]&]],{n,0,30}]
A359889
Numbers that are 1 or whose prime indices have the same mean as median.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 71, 73, 74, 77, 79, 81, 82, 83, 85, 86, 87, 89, 90, 91, 93, 94
Offset: 1
The prime indices of 900 are {1,1,2,2,3,3}, with mean 2 and median 2, so 900 is in the sequence.
The RHS (median of prime indices) is
A360005/2.
A316413 lists numbers whose prime indices have integer mean.
A359908 lists numbers whose prime indices have integer median.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],#==1||Mean[prix[#]]==Median[prix[#]]&]
A360457
Two times the median of the set of distinct prime indices of n; a(1) = 1.
Original entry on oeis.org
1, 2, 4, 2, 6, 3, 8, 2, 4, 4, 10, 3, 12, 5, 5, 2, 14, 3, 16, 4, 6, 6, 18, 3, 6, 7, 4, 5, 20, 4, 22, 2, 7, 8, 7, 3, 24, 9, 8, 4, 26, 4, 28, 6, 5, 10, 30, 3, 8, 4, 9, 7, 32, 3, 8, 5, 10, 11, 34, 4, 36, 12, 6, 2, 9, 4, 38, 8, 11, 6, 40, 3, 42, 13, 5, 9, 9, 4, 44, 4
Offset: 1
The prime indices of 65 are {3,6}, with distinct parts {3,6}, with median 9/2, so a(65) = 9.
The prime indices of 900 are {1,1,2,2,3,3}, with distinct parts {1,2,3}, with median 2, so a(900) = 4.
The version for divisors is
A063655.
The version for all prime indices is
A360005.
The version for distinct prime factors is
A360458.
The version for all prime factors is
A360459.
The version for prime multiplicities is
A360460.
Positions of even terms are
A360550.
Positions of odd terms are
A360551.
The version for 0-prepended differences is
A360555.
A304038 lists distinct prime indices.
-
Table[If[n==1,1,2*Median[PrimePi/@First/@FactorInteger[n]]],{n,100}]
A359894
Number of integer partitions of n whose parts do not have the same mean as median.
Original entry on oeis.org
0, 0, 0, 0, 1, 3, 3, 10, 13, 20, 28, 49, 53, 93, 113, 145, 203, 287, 329, 479, 556, 724, 955, 1242, 1432, 1889, 2370, 2863, 3502, 4549, 5237, 6825, 8108, 9839, 12188, 14374, 16958, 21617, 25852, 30582, 36100, 44561, 51462, 63238, 73386, 85990, 105272, 124729
Offset: 0
The a(4) = 1 through a(8) = 13 partitions:
(211) (221) (411) (322) (332)
(311) (3111) (331) (422)
(2111) (21111) (421) (431)
(511) (521)
(2221) (611)
(3211) (4211)
(4111) (5111)
(22111) (22211)
(31111) (32111)
(211111) (41111)
(221111)
(311111)
(2111111)
The complement is counted by
A240219.
A008289 counts strict partitions by mean.
A359909 counts factorizations with the same mean as median, odd-len
A359910.
-
Table[Length[Select[IntegerPartitions[n],Mean[#]!=Median[#]&]],{n,0,30}]
A359912
Numbers whose prime indices do not have integer median.
Original entry on oeis.org
1, 6, 14, 15, 26, 33, 35, 36, 38, 51, 58, 60, 65, 69, 74, 77, 84, 86, 93, 95, 106, 119, 122, 123, 132, 141, 142, 143, 145, 150, 156, 158, 161, 177, 178, 185, 196, 201, 202, 204, 209, 210, 214, 215, 216, 217, 219, 221, 225, 226, 228, 249, 262, 265, 276, 278
Offset: 1
The terms together with their prime indices begin:
1: {}
6: {1,2}
14: {1,4}
15: {2,3}
26: {1,6}
33: {2,5}
35: {3,4}
36: {1,1,2,2}
38: {1,8}
51: {2,7}
58: {1,10}
60: {1,1,2,3}
For prime factors instead of indices we have
A072978, complement
A359913.
These partitions are counted by
A307683.
Cf.
A026424,
A051293,
A067538,
A175352,
A175761,
A289509,
A359890,
A359905,
A360006,
A359907,
A360009.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!IntegerQ[Median[prix[#]]]&]
Showing 1-10 of 65 results.
Comments