A371181 -id:A371181 - 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

A371285 Heinz number of the multiset union of the divisor sets of each prime index of n.

Original entry on oeis.org

1, 2, 6, 4, 10, 12, 42, 8, 36, 20, 22, 24, 390, 84, 60, 16, 34, 72, 798, 40, 252, 44, 230, 48, 100, 780, 216, 168, 1914, 120, 62, 32, 132, 68, 420, 144, 101010, 1596, 2340, 80, 82, 504, 4386, 88, 360, 460, 5170, 96, 1764, 200, 204, 1560, 42294, 432, 220, 336

Offset: 1

Gus Wiseman, Mar 21 2024

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

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 105 are {2,3,4}, with divisor sets {{1,2},{1,3},{1,2,4}}, with multiset union {1,1,1,2,2,3,4}, with Heinz number 2520, so a(105) = 2520.
The terms together with their prime indices begin:
          1: {}
          2: {1}
          6: {1,2}
          4: {1,1}
         10: {1,3}
         12: {1,1,2}
         42: {1,2,4}
          8: {1,1,1}
         36: {1,1,2,2}
         20: {1,1,3}
         22: {1,5}
         24: {1,1,1,2}
        390: {1,2,3,6}
         84: {1,1,2,4}
         60: {1,1,2,3}
         16: {1,1,1,1}
         34: {1,7}
         72: {1,1,1,2,2}

Product of A275700 applied to each prime index.
The squarefree case is also A275700.
The sorted version is A371286.
A000005 counts divisors.
A001221 counts distinct prime factors.
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. A000720, A003963, A005179, A007416, A034729, A054973, A056239, A321898, A370820, A371165, A371181, A371284, A371288.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@Join@@Divisors/@prix[n],{n,100}]

If n = prime(x_1)*...*prime(x_k) then a(n) = A275700(x_1)*...*A275700(x_k).

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

Gus Wiseman, Mar 20 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.
Every nonnegative integer belongs to A370820, so this sequence is infinite.
Are there any terms with more than two prime factors?

			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).
The sorted version is A371181.
A000005 counts divisors.
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. 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

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

A371285 Heinz number of the multiset union of the divisor sets of each prime index of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371131 Least number with exactly n distinct divisors of prime indices. Position of first appearance of n in A370820.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI