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 A053784 #11 Apr 08 2023 16:02:50 %S A053784 1,2,3,5,6,9,9,10,11,15,15,14,8,9,17,17,12,21,19,16,14,18,29,26,29,21, %T A053784 20,17,24,28,22,27,39,24,30,42,23,42,48,33,26,54,41,35,37,36,34,39,31, %U A053784 44,40,36,38,46,51,55,77,41,60,77,54,57,88,47,43,45,46,99 %N A053784 Harmonic means of (1+e)-divisors of (1+e)-harmonic numbers. %C A053784 If n = Product p(i)^r(i), d = Product p(i)^s(i) and s(i) = 0 or s(i) divides r(i), then d is a (1+e)-divisor of n. %H A053784 Amiram Eldar, <a href="/A053784/b053784.txt">Table of n, a(n) for n = 1..100</a> %t A053784 f[p_, e_] := (DivisorSigma[0, e] + 1)/(p^e + DivisorSum[e, p^(e - #) &]); h[n_] := n*Times @@ (f @@@ FactorInteger[n]); Select[h /@ Range[10^5], IntegerQ] (* _Amiram Eldar_, Sep 07 2019*) %Y A053784 Cf. A049599, A051378, A053783. %K A053784 nonn %O A053784 1,2 %A A053784 _Naohiro Nomoto_, Apr 14 2001 %E A053784 More terms from _Amiram Eldar_, Sep 07 2019