A323172 Denominator of the average of distinct prime factors of n (A008472(n)/A001221(n)).

1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 1, 1, 3, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2

Offset: 2

Author

Antti Karttunen, Jan 05 2019

Keywords

• nonn
• easy
• frac

Links

• Antti Karttunen, Table of n, a(n) for n = 2..65539

Crossrefs

Cf. A323171 (numerators).

Cf. A001221, A008472, A123529, A322591.

Programs

Mathematica

a[n_] := Denominator[Mean[FactorInteger[n][[;; , 1]]]]; Array[a, 100, 2] (* Amiram Eldar, Sep 17 2024 *)

PARI

A008472(n) = vecsum(factor(n)[, 1]); \\ From A008472
A323172(n) = (denominator(A008472(n)/omega(n)));