A382266 Numerator of the harmonic mean of the exponents in the prime factorization of n.

1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 4, 1, 1, 1, 4, 1, 4, 1, 4, 1, 1, 1, 3, 2, 1, 3, 4, 1, 1, 1, 5, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 4, 1, 1, 8, 2, 4, 1, 4, 1, 3, 1, 3, 1, 1, 1, 6, 1, 1, 4, 6, 1, 1, 1, 4, 1, 1, 1, 12, 1, 1, 4, 4, 1, 1, 1, 8, 4, 1, 1, 6, 1, 1, 1, 3, 1, 6, 1, 4, 1, 1, 1, 5, 1, 4, 4, 2

Offset: 2

Author

Ilya Gutkovskiy, Mar 19 2025

Keywords

• nonn
• frac

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

Links

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

Crossrefs

Cf. A070012, A088529, A250096, A382267 (denominators).

Programs

Maple

a:= n-> (l-> numer(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}] // Numerator