A370802
Positive integers with as many prime factors (A001222) as distinct divisors of prime indices (A370820).
Original entry on oeis.org
1, 2, 6, 9, 10, 22, 25, 28, 30, 34, 42, 45, 62, 63, 66, 75, 82, 92, 98, 99, 102, 104, 110, 118, 121, 134, 140, 147, 152, 153, 156, 166, 170, 186, 210, 218, 228, 230, 232, 234, 246, 254, 260, 275, 276, 279, 289, 308, 310, 314, 315, 330, 342, 343, 344, 348, 350
Offset: 1
The prime indices of 1617 are {2,4,4,5}, with distinct divisors {1,2,4,5}, so 1617 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
6: {1,2}
9: {2,2}
10: {1,3}
22: {1,5}
25: {3,3}
28: {1,1,4}
30: {1,2,3}
34: {1,7}
42: {1,2,4}
45: {2,2,3}
62: {1,11}
63: {2,2,4}
66: {1,2,5}
75: {2,3,3}
82: {1,13}
92: {1,1,9}
98: {1,4,4}
99: {2,2,5}
102: {1,2,7}
104: {1,1,1,6}
For factors instead of divisors on the RHS we have
A319899.
A version for binary indices is
A367917.
For (greater than) instead of (equal) we have
A370348, counted by
A371171.
For divisors instead of factors on LHS we have
A371165, counted by
A371172.
For only distinct prime factors on LHS we have
A371177, counted by
A371178.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
Cf.
A000792,
A003963,
A355529,
A355737,
A355739,
A355741,
A368100,
A370808,
A370813,
A370814,
A371127.
-
Select[Range[100],PrimeOmega[#]==Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]
A371165
Positive integers with as many divisors (A000005) as distinct divisors of prime indices (A370820).
Original entry on oeis.org
3, 5, 11, 17, 26, 31, 35, 38, 39, 41, 49, 57, 58, 59, 65, 67, 69, 77, 83, 86, 87, 94, 109, 119, 127, 129, 133, 146, 148, 157, 158, 179, 191, 202, 206, 211, 217, 235, 237, 241, 244, 253, 274, 277, 278, 283, 284, 287, 291, 298, 303, 319, 326, 331, 333, 334, 353
Offset: 1
The terms together with their prime indices begin:
3: {2} 67: {19} 158: {1,22}
5: {3} 69: {2,9} 179: {41}
11: {5} 77: {4,5} 191: {43}
17: {7} 83: {23} 202: {1,26}
26: {1,6} 86: {1,14} 206: {1,27}
31: {11} 87: {2,10} 211: {47}
35: {3,4} 94: {1,15} 217: {4,11}
38: {1,8} 109: {29} 235: {3,15}
39: {2,6} 119: {4,7} 237: {2,22}
41: {13} 127: {31} 241: {53}
49: {4,4} 129: {2,14} 244: {1,1,18}
57: {2,8} 133: {4,8} 253: {5,9}
58: {1,10} 146: {1,21} 274: {1,33}
59: {17} 148: {1,1,12} 277: {59}
65: {3,6} 157: {37} 278: {1,34}
For prime factors instead of divisors on both sides we get
A319899.
For prime factors on LHS we get
A370802, for distinct prime factors
A371177.
For (greater than) instead of (equal) we get
A371166.
For (less than) instead of (equal) we get
A371167.
Partitions of this type are counted by
A371172.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Select[Range[100],Length[Divisors[#]] == Length[Union@@Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]
A371168
Positive integers with fewer prime factors (A001222) than distinct divisors of prime indices (A370820).
Original entry on oeis.org
3, 5, 7, 11, 13, 14, 15, 17, 19, 21, 23, 26, 29, 31, 33, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 65, 67, 69, 70, 71, 73, 74, 76, 77, 78, 79, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 105, 106, 107, 109, 111, 113, 114, 115
Offset: 1
The prime indices of 105 are {2,3,4}, and there are 3 prime factors (3,5,7) and 4 distinct divisors of prime indices (1,2,3,4), so 105 is in the sequence.
The terms together with their prime indices begin:
3: {2} 35: {3,4} 59: {17} 86: {1,14}
5: {3} 37: {12} 61: {18} 87: {2,10}
7: {4} 38: {1,8} 65: {3,6} 89: {24}
11: {5} 39: {2,6} 67: {19} 91: {4,6}
13: {6} 41: {13} 69: {2,9} 93: {2,11}
14: {1,4} 43: {14} 70: {1,3,4} 94: {1,15}
15: {2,3} 46: {1,9} 71: {20} 95: {3,8}
17: {7} 47: {15} 73: {21} 97: {25}
19: {8} 49: {4,4} 74: {1,12} 101: {26}
21: {2,4} 51: {2,7} 76: {1,1,8} 103: {27}
23: {9} 52: {1,1,6} 77: {4,5} 105: {2,3,4}
26: {1,6} 53: {16} 78: {1,2,6} 106: {1,16}
29: {10} 55: {3,5} 79: {22} 107: {28}
31: {11} 57: {2,8} 83: {23} 109: {29}
33: {2,5} 58: {1,10} 85: {3,7} 111: {2,12}
For divisors instead of prime factors on the LHS we get
A371166.
The complement is counted by
A371169.
Partitions of this type are counted by
A371173.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
A371173
Number of integer partitions of n with fewer parts than distinct divisors of parts.
Original entry on oeis.org
0, 0, 1, 1, 1, 3, 2, 4, 6, 7, 11, 11, 17, 20, 26, 34, 44, 56, 67, 84, 102, 131, 156, 195, 232, 283, 346, 411, 506, 598, 721, 855, 1025, 1204, 1448, 1689, 2018, 2363, 2796, 3265, 3840, 4489, 5242, 6104, 7106, 8280, 9595, 11143, 12862, 14926, 17197, 19862, 22841
Offset: 0
The partition (4,3,2) has 3 parts {2,3,4} and 4 distinct divisors of parts {1,2,3,4}, so is counted under a(9).
The a(2) = 1 through a(10) = 11 partitions:
(2) (3) (4) (5) (6) (7) (8) (9) (10)
(3,2) (4,2) (4,3) (4,4) (5,4) (6,4)
(4,1) (5,2) (5,3) (6,3) (7,3)
(6,1) (6,2) (7,2) (8,2)
(4,3,1) (8,1) (9,1)
(6,1,1) (4,3,2) (4,3,3)
(6,2,1) (5,3,2)
(5,4,1)
(6,2,2)
(6,3,1)
(8,1,1)
For submultisets instead of parts on the LHS we get ranks
A371166.
These partitions are ranked by
A371168.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Table[Length[Select[IntegerPartitions[n],Length[#] < Length[Union@@Divisors/@#]&]],{n,0,30}]
A371172
Number of integer partitions of n with as many submultisets as distinct divisors of parts.
Original entry on oeis.org
0, 0, 1, 1, 0, 1, 0, 3, 2, 3, 1, 4, 2, 1, 2, 3, 4, 2, 4, 1, 5, 2, 7, 5, 9, 4, 9, 15, 18, 16, 24, 13, 17, 23, 23, 22, 34, 17, 30, 31, 36, 29, 43, 21, 30, 35, 44, 28, 47, 19, 44
Offset: 0
The partition (8,6,6) has 6 submultisets {(8,6,6),(8,6),(6,6),(8),(6),()} and 6 distinct divisors of parts {1,2,3,4,6,8}, so is counted under a(20).
The a(17) = 2 through a(24) = 9 partitions:
(17) (9,9) (19) (11,9) (14,7) (13,9) (23) (21,3)
(13,4) (15,3) (15,5) (17,4) (21,1) (19,4) (22,2)
(6,6,6) (8,6,6) (8,8,6) (22,1) (8,8,8)
(12,3,3) (12,4,4) (10,6,6) (15,4,4) (10,8,6)
(18,1,1) (16,3,3) (12,10,1) (12,6,6)
(18,2,2) (12,7,5)
(20,1,1) (18,3,3)
(20,2,2)
(12,10,2)
These partitions are ranked by
A371165.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Table[Length[Select[IntegerPartitions[n], Length[Divisors[Times@@Prime/@#]] == Length[Union@@Divisors/@#]&]],{n,0,30}]
A371167
Positive integers with more divisors (A000005) than distinct divisors of prime indices (A370820).
Original entry on oeis.org
1, 2, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 34, 36, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 60, 62, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 81, 82, 84, 85, 88, 90, 92, 93, 96, 98, 99, 100, 102, 104, 105, 108, 110
Offset: 1
The prime indices of 814 are {1,5,12}, and there are 8 divisors (1,2,11,22,37,74,407,814) and 7 distinct divisors of prime indices (1,2,3,4,5,6,12), so 814 is in the sequence.
The prime indices of 1859 are {5,6,6}, and there are 6 divisors (1,11,13,143,169,1859) and 5 distinct divisors of prime indices (1,2,3,5,6), so 1859 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
4: {1,1}
6: {1,2}
8: {1,1,1}
9: {2,2}
10: {1,3}
12: {1,1,2}
14: {1,4}
15: {2,3}
16: {1,1,1,1}
18: {1,2,2}
20: {1,1,3}
21: {2,4}
22: {1,5}
24: {1,1,1,2}
25: {3,3}
27: {2,2,2}
28: {1,1,4}
30: {1,2,3}
For (equal to) instead of (greater than) we get
A371165, counted by
A371172.
For (less than) instead of (greater than) we get
A371166.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Select[Range[100],Length[Divisors[#]]>Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]
Showing 1-6 of 6 results.
Comments