This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A382266 #10 Mar 22 2025 08:43:53
%S A382266 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,
%T A382266 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,
%U A382266 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
%N A382266 Numerator of the harmonic mean of the exponents in the prime factorization of n.
%H A382266 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>.
%e A382266 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, ...
%p A382266 a:= n-> (l-> numer(nops(l)/add(1/i[2], i=l)))(ifactors(n)[2]):
%p A382266 seq(a(n), n=2..100); # _Alois P. Heinz_, Mar 21 2025
%t A382266 Table[HarmonicMean[(#[[2]] & /@ FactorInteger[n])], {n, 2, 100}] // Numerator
%Y A382266 Cf. A070012, A088529, A250096, A382267 (denominators).
%K A382266 nonn,frac
%O A382266 2,3
%A A382266 _Ilya Gutkovskiy_, Mar 19 2025