A323172 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

2,5

LINKS

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

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