A382267 Denominator of the harmonic mean of the exponents in the prime factorization of n.
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 3, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 3, 1, 1, 5, 1, 3, 1, 3, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 1, 3, 3, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 2, 1, 5, 1, 3, 1, 1, 1, 3, 1, 3, 3, 1
Offset: 2
Examples
1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 4/3, 1, 1, 1, 4, 1, 4/3, 1, 4/3, 1, 1, 1, 3/2, 2, 1, 3, 4/3, ...
Programs
-
Maple
a:= n-> (l-> denom(nops(l)/add(1/i[2], i=l)))(ifactors(n)[2]): seq(a(n), n=2..100); # Alois P. Heinz, Mar 21 2025
-
Mathematica
Table[HarmonicMean[(#[[2]] & /@ FactorInteger[n])], {n, 2, 100}] // Denominator