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,11

Links

Table of n, a(n) for n=2..100.

Index entries for sequences computed from exponents in factorization of n.

Example

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, ...

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

Crossrefs

Cf. A070012, A088530, A250097, A382266 (numerators).

Sequence in context: A219208 A336850 A061680 * A355456 A097558 A124385

Adjacent sequences: A382264 A382265 A382266 * A382268 A382269 A382270

Keyword

nonn,frac

Author

Ilya Gutkovskiy, Mar 19 2025

Status

approved