A324933 Denominator in the division of n by the product of prime indices of n.

1, 1, 2, 1, 3, 1, 4, 1, 4, 3, 5, 1, 6, 2, 2, 1, 7, 2, 8, 3, 8, 5, 9, 1, 9, 3, 8, 1, 10, 1, 11, 1, 10, 7, 12, 1, 12, 4, 4, 3, 13, 4, 14, 5, 4, 9, 15, 1, 16, 9, 14, 3, 16, 4, 3, 1, 16, 5, 17, 1, 18, 11, 16, 1, 18, 5, 19, 7, 6, 6, 20, 1, 21, 6, 6, 2, 20, 2, 22, 3

Offset

1,3

Comments

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.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

The sequence of quotients n/A003963(n) begins: 1, 2, 3/2, 4, 5/3, 3, 7/4, 8, 9/4, 10/3, 11/5, 6, 13/6, 7/2, 5/2, 16, ...

Mathematica

Table[n/Times@@Cases[If[n==1, {}, FactorInteger[n]], {p_, k_}:>PrimePi[p]^k], {n, 100}]//Denominator

Crossrefs

The numerators are A324932.

Cf. A003963, A109129, A120383, A196050, A317713, A324846, A324849, A324850, A324922, A324923, A324924, A324925, A324931, A324934.

Sequence in context: A102613 A097019 A262999 * A085343 A049077 A180184

Adjacent sequences: A324930 A324931 A324932 * A324934 A324935 A324936

Keyword

nonn,frac

Author

_Gus Wiseman_, Mar 21 2019

Status

approved