A371178 -id:A371178 - cp's OEIS frontend

A370820 Number of positive integers that are a divisor of some prime index of n.

0, 1, 2, 1, 2, 2, 3, 1, 2, 2, 2, 2, 4, 3, 3, 1, 2, 2, 4, 2, 3, 2, 3, 2, 2, 4, 2, 3, 4, 3, 2, 1, 3, 2, 4, 2, 6, 4, 4, 2, 2, 3, 4, 2, 3, 3, 4, 2, 3, 2, 3, 4, 5, 2, 3, 3, 4, 4, 2, 3, 6, 2, 3, 1, 4, 3, 2, 2, 4, 4, 6, 2, 4, 6, 3, 4, 4, 4, 4, 2, 2, 2, 2, 3, 3, 4, 4

Offset: 1

Gus Wiseman, Mar 15 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

This sequence contains all nonnegative integers. In particular, a(prime(n)!) = n.

			2045 has prime indices {3,80} with combined divisors {1,2,3,4,5,8,10,16,20,40,80}, so a(2045) = 11. In fact, 2045 is the least number with this property.

a(prime(n)) = A000005(n).
Positions of ones are A000079 except for 1.
a(n!) = A000720(n).
a(prime(n)!) = a(prime(A005179(n))) = n.
Counting prime factors instead of divisors gives A303975.
Positions of 2's are A371127.
Position of first appearance of n is A371131(n), sorted version A371181.
RHS of A370802, A371128, A371130, A371165-A371170, A371177, A371178.
A001221 counts distinct prime factors.
A003963 gives product of prime indices.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 counts choices of a prime factor of each prime index.
Cf. A000792, A007416, A048249, A319899, A355737, A355739, A370348, A370808, A370809.

Table[Length[Union@@Divisors/@PrimePi/@First/@If[n==1,{},FactorInteger[n]]],{n,100}]

a(n) = my(list=List(), f=factor(n)); for (i=1, #f~, fordiv(primepi(f[i,1]), d, listput(list, d))); #Set(list); \\ Michel Marcus, May 02 2024

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

Gus Wiseman, Mar 14 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

All squarefree terms are even.

			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.
The RHS is A370820, for prime factors instead of divisors A303975.
Partitions of this type are counted by A371130, strict A371128.
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.
Other inequalities: A371166, A371167, A371169, A371170.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts divisor-choosable partitions, ranks A368110.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370320 counts non-divisor-choosable partitions, ranks A355740.
Cf. A000792, A003963, A355529, A355737, A355739, A355741, A368100, A370808, A370813, A370814, A371127.

Select[Range[100],PrimeOmega[#]==Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]

A001222(a(n)) = A370820(a(n)).

A371130 Number of integer partitions of n such that the number of parts is equal to the number of distinct divisors of parts.

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 4, 2, 4, 5, 5, 11, 10, 16, 17, 21, 26, 32, 44, 53, 69, 71, 101, 110, 148, 168, 205, 249, 289, 356, 418, 502, 589, 716, 812, 999, 1137, 1365, 1566, 1873, 2158, 2537, 2942, 3449, 4001, 4613, 5380, 6193, 7220, 8224, 9575, 10926, 12683, 14430

Offset: 0

Gus Wiseman, Mar 17 2024

nonn

The Heinz numbers of these partitions are given by A370802.

			The partition (6,2,2,1) has 4 parts and 4 distinct divisors of parts {1,2,3,6} so is counted under a(11).
The a(1) = 1 through a(11) = 11 partitions:
  (1)  .  (21)  (22)  .  (33)   (322)  (71)   (441)   (55)    (533)
                (31)     (51)   (421)  (332)  (522)   (442)   (722)
                         (321)         (422)  (531)   (721)   (731)
                         (411)         (521)  (4311)  (4321)  (911)
                                              (6111)  (6211)  (4322)
                                                              (4331)
                                                              (5321)
                                                              (5411)
                                                              (6221)
                                                              (6311)
                                                              (8111)

The LHS is represented by A001222, distinct A000021.
These partitions are ranked by A370802.
The RHS is represented by A370820, for prime factors A303975.
The strict case is A371128.
For (greater than) instead of (equal to) we have A371171, ranks A370348.
For submultisets instead of parts on the LHS we have A371172.
For (less than) instead of (equal to) we have A371173, ranked by A371168.
Counting only distinct parts on the LHS gives A371178, ranks A371177.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Choosable partitions: A239312 (A368110), A355740 (A370320), A370592 (A368100), A370593 (A355529).
Cf. A003963, A319055, A355731, A370803, A370808, A370809, A370813, A370814.

Table[Length[Select[IntegerPartitions[n], Length[#]==Length[Union@@Divisors/@#]&]],{n,0,30}]

A371128 Number of strict integer partitions of n containing all distinct divisors of all parts.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 2, 1, 2, 1, 2, 2, 3, 3, 3, 5, 3, 5, 6, 7, 7, 8, 8, 9, 12, 13, 13, 14, 15, 16, 19, 23, 25, 26, 26, 27, 36, 37, 40, 42, 46, 50, 55, 66, 65, 71, 71, 82, 90, 102, 103, 114, 117, 130, 147, 154, 166, 176, 182, 194, 228, 239, 259, 267, 287, 307, 336

Offset: 0

Gus Wiseman, Mar 18 2024

nonn

Also strict integer partitions such that the number of parts is equal to the number of distinct divisors of all parts.

			The a(9) = 1 through a(19) = 7 partitions (A..H = 10..17):
  531  721   731   B1    751   D1    B31    D21    B51    H1     B71
       4321  5321  5421  931   B21   7521   7531   D31    9531   D51
                   6321  7321  7421  8421   64321  B321   A521   B521
                                     9321          65321  B421   D321
                                     54321         74321  75321  75421
                                                          84321  76321
                                                                 94321

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
Strict case of A371130 (ranks A370802) and A371178 (ranks A371177).
The complement is counted by A371180, non-strict A371132.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts partitions without divisors, strict A303362, ranks A316476.
Cf. A000837, A003963, A239312, A285573, A319055, A370803, A370808, A371171, A371172, A371173.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&SubsetQ[#,Union@@Divisors/@#]&]],{n,0,30}]

A371177 Positive integers whose prime indices include all distinct divisors of all prime indices.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 12, 16, 18, 20, 22, 24, 30, 32, 34, 36, 40, 42, 44, 48, 50, 54, 60, 62, 64, 66, 68, 72, 80, 82, 84, 88, 90, 96, 100, 102, 108, 110, 118, 120, 124, 126, 128, 132, 134, 136, 144, 150, 160, 162, 164, 166, 168, 170, 176, 180, 186, 192, 198, 200

Offset: 1

Gus Wiseman, Mar 18 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also positive integers with as many distinct prime factors (A001221) as distinct divisors of prime indices (A370820).

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   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}
   30: {1,2,3}
   32: {1,1,1,1,1}
   34: {1,7}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   48: {1,1,1,1,2}

The LHS is A001221, distinct case of A001222.
The RHS is A370820, for prime factors A303975.
For bigomega on the LHS we have A370802, counted by A371130.
For divisors on the LHS we have A371165, counted by A371172.
Partitions of this type are counted by A371178, strict A371128.
The complement is A371179, counted by A371132.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts partitions without divisors, strict A303362, ranks A316476.
Cf. A000837, A003963, A239312, A285573, A355529, A370813, A371168.

Select[Range[100],PrimeNu[#]==Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]

A001221(a(n)) = A370820(a(n)).

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

Gus Wiseman, Mar 18 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			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 A302540.
Subset of A336101 = powers of 2 times powers of primes.
Positions of 2's in A370820.
Counting prime factors instead of divisors gives A371287.
A000005 counts divisors.
A000961 lists powers of primes, A302596 of prime index.
A001221 counts distinct prime factors.
A003963 gives product of prime indices.
A027746 lists prime factors, indices A112798, length A001222.
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.
Cf. A000079, A005179, A007416, A303975, A319899, A355739, A370348, A370802, A371165-A371170, A371178.

Select[Range[100],Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]==2&]

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

Gus Wiseman, Mar 14 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			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}

The RHS is A370820, for prime factors instead of divisors A303975.
For (equal to) instead of (less than) we have A371165, counted by A371172.
For (greater than) instead of (less than) we have A371167.
For prime factors on the LHS we get A371168, counted by A371173.
Other equalities: A319899, A370802 (A371130), A371128, A371177 (A371178).
Other inequalities: A370348 (A371171), A371169, A371170.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts divisor-choosable partitions, ranks A368110.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370320 counts non-divisor-choosable partitions, ranks A355740.
A370814 counts divisor-choosable factorizations, complement A370813.
Cf. A000792, A003963, A355737, A355739, A355741, A368100, A370808, A371127.

Select[Range[100],Length[Divisors[#]] < Length[Union@@Divisors/@PrimePi/@First/@FactorInteger[#]]&]

A000005(a(n)) < A370820(a(n)).

A371132 Number of integer partitions of n with fewer distinct parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 6, 10, 14, 21, 28, 40, 53, 73, 96, 130, 170, 223, 288, 375, 480, 616, 780, 990, 1245, 1567, 1954, 2440, 3024, 3745, 4610, 5674, 6947, 8499, 10349, 12591, 15258, 18468, 22277, 26841, 32238, 38673, 46262, 55278, 65881, 78423, 93136, 110477

Offset: 0

Gus Wiseman, Mar 17 2024

nonn

The Heinz numbers of these partitions are given by A371179.

			The partition (4,3,1,1) has 3 distinct parts {1,3,4} and 4 distinct divisors of parts {1,2,3,4}, so is counted under a(9).
The a(0) = 0 through a(9) = 14 partitions:
  .  .  (2)  (3)  (4)   (5)   (6)    (7)     (8)      (9)
                  (22)  (32)  (33)   (43)    (44)     (54)
                        (41)  (42)   (52)    (53)     (63)
                              (222)  (61)    (62)     (72)
                              (411)  (322)   (332)    (81)
                                     (4111)  (422)    (333)
                                             (431)    (432)
                                             (611)    (441)
                                             (2222)   (522)
                                             (41111)  (621)
                                                      (3222)
                                                      (4311)
                                                      (6111)
                                                      (411111)

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
The complement counting all parts on the LHS is A371172, ranks A371165.
Counting all parts on the LHS gives A371173, ranks A371168.
The complement is counted by A371178, ranks A371177.
These partitions are ranked by A371179.
The strict case is A371180, complement A371128.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A003963, A239312, A319055, A355740, A370802, A370803, A370808, A370813, A371130, A371171.

Table[Length[Select[IntegerPartitions[n],Length[Union[#]] < 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

Gus Wiseman, Mar 14 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			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 prime factors on the LHS we have A370348, counted by A371171.
The RHS is A370820, for prime factors instead of divisors A303975.
For (equal to) instead of (greater than) we get A371165, counted by A371172.
For (less than) instead of (greater than) we get A371166.
Other equalities: A319899, A370802 (A371130), A371128, A371177 (A371178).
Other inequalities: A371168 (A371173), A371169, A371170.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts divisor-choosable partitions, ranks A368110.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370320 counts non-divisor-choosable partitions, ranks A355740.
A370814 counts divisor-choosable factorizations, complement A370813.
Cf. A000792, A003963, A355529, A355739, A355741, A368100, A370808, A371127.

Select[Range[100],Length[Divisors[#]]>Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]

A000005(a(n)) > A370820(a(n)).

A371179 Positive integers with fewer distinct prime factors (A001221) than distinct divisors of prime indices (A370820).

Original entry on oeis.org

3, 5, 7, 9, 11, 13, 14, 15, 17, 19, 21, 23, 25, 26, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, 45, 46, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 63, 65, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 81, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 98, 99, 101

Offset: 1

Gus Wiseman, Mar 19 2024

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The terms together with their prime indices begin:
     3: {2}        28: {1,1,4}    52: {1,1,6}      74: {1,12}
     5: {3}        29: {10}       53: {16}         75: {2,3,3}
     7: {4}        31: {11}       55: {3,5}        76: {1,1,8}
     9: {2,2}      33: {2,5}      56: {1,1,1,4}    77: {4,5}
    11: {5}        35: {3,4}      57: {2,8}        78: {1,2,6}
    13: {6}        37: {12}       58: {1,10}       79: {22}
    14: {1,4}      38: {1,8}      59: {17}         81: {2,2,2,2}
    15: {2,3}      39: {2,6}      61: {18}         83: {23}
    17: {7}        41: {13}       63: {2,2,4}      85: {3,7}
    19: {8}        43: {14}       65: {3,6}        86: {1,14}
    21: {2,4}      45: {2,2,3}    67: {19}         87: {2,10}
    23: {9}        46: {1,9}      69: {2,9}        89: {24}
    25: {3,3}      47: {15}       70: {1,3,4}      91: {4,6}
    26: {1,6}      49: {4,4}      71: {20}         92: {1,1,9}
    27: {2,2,2}    51: {2,7}      73: {21}         93: {2,11}

The LHS is A001221, distinct case of A001222.
The RHS is A370820, for prime factors A303975.
Partitions of this type are counted by A371132, strict A371180.
Counting all prime indices on the LHS gives A371168, counted by A371173.
The complement is A371177, counted by A371178, strict A371128.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts pairwise indivisible (stable) partitions, ranks A316476.
Cf. A003963, A239312, A285573, A355529, A370802, A370803, A371130, A371165, A371171, A371172.

Mathematica
```
Select[Range[100],PrimeNu[#]
				
```

A001221(a(n)) < A370820(a(n)).

cp's OEIS Frontend

A370820 Number of positive integers that are a divisor of some prime index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

A370802 Positive integers with as many prime factors (A001222) as distinct divisors of prime indices (A370820).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371130 Number of integer partitions of n such that the number of parts is equal to the number of distinct divisors of parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371128 Number of strict integer partitions of n containing all distinct divisors of all parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371177 Positive integers whose prime indices include all distinct divisors of all prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371127 Powers of 2 times powers > 1 of a prime-indexed prime number.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371166 Positive integers with fewer divisors (A000005) than distinct divisors of prime indices (A370820).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371132 Number of integer partitions of n with fewer distinct parts than distinct divisors of parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371167 Positive integers with more divisors (A000005) than distinct divisors of prime indices (A370820).

Views

Author