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}]
A371127
Powers of 2 times powers > 1 of a prime-indexed prime number.
Original entry on oeis.org
3, 5, 6, 9, 10, 11, 12, 17, 18, 20, 22, 24, 25, 27, 31, 34, 36, 40, 41, 44, 48, 50, 54, 59, 62, 67, 68, 72, 80, 81, 82, 83, 88, 96, 100, 108, 109, 118, 121, 124, 125, 127, 134, 136, 144, 157, 160, 162, 164, 166, 176, 179, 191, 192, 200, 211, 216, 218, 236, 241
Offset: 1
The terms together with their prime indices begin:
3: {2}
5: {3}
6: {1,2}
9: {2,2}
10: {1,3}
11: {5}
12: {1,1,2}
17: {7}
18: {1,2,2}
20: {1,1,3}
22: {1,5}
24: {1,1,1,2}
25: {3,3}
27: {2,2,2}
31: {11}
34: {1,7}
36: {1,1,2,2}
Subset of
A336101 = powers of 2 times powers of primes.
Counting prime factors instead of divisors gives
A371287.
A001221 counts distinct prime factors.
A003963 gives product of prime indices.
A076610 lists products of primes of prime index.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
A355741 counts choices of a prime factor of each prime index.
A371170
Positive integers with at most as many prime factors (A001222) as distinct divisors of prime indices (A370820).
Original entry on oeis.org
1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 92
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:
1: {} 22: {1,5} 42: {1,2,4} 63: {2,2,4}
2: {1} 23: {9} 43: {14} 65: {3,6}
3: {2} 25: {3,3} 45: {2,2,3} 66: {1,2,5}
5: {3} 26: {1,6} 46: {1,9} 67: {19}
6: {1,2} 28: {1,1,4} 47: {15} 69: {2,9}
7: {4} 29: {10} 49: {4,4} 70: {1,3,4}
9: {2,2} 30: {1,2,3} 51: {2,7} 71: {20}
10: {1,3} 31: {11} 52: {1,1,6} 73: {21}
11: {5} 33: {2,5} 53: {16} 74: {1,12}
13: {6} 34: {1,7} 55: {3,5} 75: {2,3,3}
14: {1,4} 35: {3,4} 57: {2,8} 76: {1,1,8}
15: {2,3} 37: {12} 58: {1,10} 77: {4,5}
17: {7} 38: {1,8} 59: {17} 78: {1,2,6}
19: {8} 39: {2,6} 61: {18} 79: {22}
21: {2,4} 41: {13} 62: {1,11} 82: {1,13}
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Select[Range[100],PrimeOmega[#]<=Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]
A371169
Positive integers with at least as many prime factors (A001222) as distinct divisors of prime indices (A370820).
Original entry on oeis.org
1, 2, 4, 6, 8, 9, 10, 12, 16, 18, 20, 22, 24, 25, 27, 28, 30, 32, 34, 36, 40, 42, 44, 45, 48, 50, 54, 56, 60, 62, 63, 64, 66, 68, 72, 75, 80, 81, 82, 84, 88, 90, 92, 96, 98, 99, 100, 102, 104, 108, 110, 112, 118, 120, 121, 124, 125, 126, 128, 132, 134, 135
Offset: 1
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}
16: {1,1,1,1}
18: {1,2,2}
20: {1,1,3}
22: {1,5}
24: {1,1,1,2}
25: {3,3}
27: {2,2,2}
28: {1,1,4}
30: {1,2,3}
32: {1,1,1,1,1}
34: {1,7}
36: {1,1,2,2}
The version for prime factors instead of divisors on the RHS is
A319899.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
-
Select[Range[100],PrimeOmega[#]>=Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]
A371166
Positive integers with fewer divisors (A000005) than distinct divisors of prime indices (A370820).
Original entry on oeis.org
7, 13, 19, 23, 29, 37, 43, 47, 53, 61, 71, 73, 74, 79, 89, 91, 95, 97, 101, 103, 106, 107, 111, 113, 122, 131, 137, 139, 141, 142, 143, 145, 149, 151, 159, 161, 163, 167, 169, 173, 178, 181, 183, 185, 193, 197, 199, 203, 209, 213, 214, 215, 219, 221, 223, 226
Offset: 1
The terms together with their prime indices begin:
7: {4} 101: {26} 163: {38} 223: {48}
13: {6} 103: {27} 167: {39} 226: {1,30}
19: {8} 106: {1,16} 169: {6,6} 227: {49}
23: {9} 107: {28} 173: {40} 229: {50}
29: {10} 111: {2,12} 178: {1,24} 233: {51}
37: {12} 113: {30} 181: {42} 239: {52}
43: {14} 122: {1,18} 183: {2,18} 247: {6,8}
47: {15} 131: {32} 185: {3,12} 251: {54}
53: {16} 137: {33} 193: {44} 257: {55}
61: {18} 139: {34} 197: {45} 259: {4,12}
71: {20} 141: {2,15} 199: {46} 262: {1,32}
73: {21} 142: {1,20} 203: {4,10} 263: {56}
74: {1,12} 143: {5,6} 209: {5,8} 265: {3,16}
79: {22} 145: {3,10} 213: {2,20} 267: {2,24}
89: {24} 149: {35} 214: {1,28} 269: {57}
91: {4,6} 151: {36} 215: {3,14} 271: {58}
95: {3,8} 159: {2,16} 219: {2,21} 281: {60}
97: {25} 161: {4,9} 221: {6,7} 293: {62}
For (equal to) instead of (less than) we have
A371165, counted by
A371172.
For (greater than) instead of (less than) we have
A371167.
A001221 counts distinct prime factors.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
A371131
Least number with exactly n distinct divisors of prime indices. Position of first appearance of n in A370820.
Original entry on oeis.org
1, 2, 3, 7, 13, 53, 37, 311, 89, 151, 223, 2045, 281, 3241, 1163, 827, 659, 9037, 1069, 17611, 1511, 4211, 28181, 122119, 2423, 10627, 88483, 6997, 7561, 98965, 5443, 88099, 6473, 95603, 309073, 50543, 10271, 192709, 508051, 438979, 14323, 305107, 26203
Offset: 0
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
7: {4}
13: {6}
53: {16}
37: {12}
311: {64}
89: {24}
151: {36}
223: {48}
2045: {3,80}
281: {60}
3241: {4,90}
1163: {192}
827: {144}
659: {120}
9037: {4,210}
1069: {180}
17611: {5,252}
Counting prime factors instead of divisors (see
A303975) gives
A062447(>0).
A001221 counts distinct prime factors.
A003963 gives product of prime indices.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
A355741 counts choices of a prime factor of each prime index.
Cf.
A000720,
A000792,
A005179,
A007416,
A355739,
A370348,
A370802,
A370808,
A371130,
A371165,
A371177.
-
rnnm[q_]:=Max@@Select[Range[Min@@q,Max@@q],SubsetQ[q,Range[#]]&];
posfirsts[q_]:=Table[Position[q,n][[1,1]],{n,Min@@q,rnnm[q]}];
posfirsts[Table[Length[Union @@ Divisors/@PrimePi/@First/@If[n==1, {},FactorInteger[n]]],{n,1000}]]
-
f(n) = my(list=List(), f=factor(n)); for (i=1, #f~, fordiv(primepi(f[i,1]), d, listput(list, d))); #Set(list); \\ A370820
a(n) = my(k=1); while (f(k) != n, k++); k; \\ Michel Marcus, May 02 2024
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[#]]]&]
A371181
Sorted list of positions of first appearances in the sequence A370820, which counts distinct divisors of prime indices.
Original entry on oeis.org
1, 2, 3, 7, 13, 37, 53, 89, 151, 223, 281, 311, 659, 827, 1069, 1163, 1511, 2045, 2423, 3241, 4211, 5443, 6473, 6997, 7561, 9037, 10271, 10627, 14323, 17611, 26203, 28181, 33613, 50543, 88099, 88483, 95603, 98965, 122119, 168281, 192709, 305107, 309073, 420167
Offset: 1
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
7: {4}
13: {6}
37: {12}
53: {16}
89: {24}
151: {36}
223: {48}
281: {60}
311: {64}
659: {120}
827: {144}
1069: {180}
1163: {192}
1511: {240}
2045: {3,80}
2423: {360}
3241: {4,90}
4211: {576}
5443: {720}
6473: {840}
6997: {900}
7561: {960}
9037: {4,210}
Counting prime factors instead of divisors (see
A303975) gives
A062447(>0).
A001221 counts distinct prime factors.
A003963 gives product of prime indices.
A355731 counts choices of a divisor of each prime index, firsts
A355732.
A355741 counts choices of a prime factor of each prime index.
Cf.
A000079,
A000720,
A000792,
A002110,
A005179,
A007416,
A355739,
A370348,
A370802,
A370808,
A371165,
A371177.
-
rnnm[q_]:=Max@@Select[Range[Min@@q,Max@@q],SubsetQ[q,Range[#]]&];
posfirsts[q_]:=Table[Position[q,n][[1,1]],{n,Min@@q,rnnm[q]}];
posfirsts[Table[Length[Union @@ Divisors/@PrimePi/@First/@If[n==1,{},FactorInteger[n]]],{n,1000}]]//Sort
Comments