login
A323172
Denominator of the average of distinct prime factors of n (A008472(n)/A001221(n)).
12
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,5
LINKS
MATHEMATICA
a[n_] := Denominator[Mean[FactorInteger[n][[;; , 1]]]]; Array[a, 100, 2] (* Amiram Eldar, Sep 17 2024 *)
PROG
(PARI)
A008472(n) = vecsum(factor(n)[, 1]); \\ From A008472
A323172(n) = (denominator(A008472(n)/omega(n)));
CROSSREFS
Cf. A323171 (numerators).
Sequence in context: A300409 A361631 A247462 * A327403 A247371 A331177
KEYWORD
nonn,easy,frac
AUTHOR
Antti Karttunen, Jan 05 2019
STATUS
approved