cp's OEIS Frontend

A079527 a(n) = floor( exp(H_n)*log(H_n) ).

%I A079527 #14 Sep 08 2022 08:45:08
%S A079527 0,1,3,5,8,10,12,15,17,20,22,25,27,30,33,35,38,41,43,46,49,52,55,57,
%T A079527 60,63,66,69,72,75,78,81,84,86,89,92,95,98,101,104,107,110,113,116,
%U A079527 119,123,126,129,132,135,138,141,144,147,150,153,156,160,163,166,169,172,175,178
%N A079527 a(n) = floor( exp(H_n)*log(H_n) ).
%H A079527 G. C. Greubel, <a href="/A079527/b079527.txt">Table of n, a(n) for n = 1..10000</a>
%H A079527 J. C. Lagarias, <a href="https://arxiv.org/abs/math/0008177">An elementary problem equivalent to the Riemann hypothesis</a>, arXiv:math/0008177 [math.NT], 2000-2001; Am. Math. Monthly 109 (#6, 2002), 534-543.
%t A079527 a[n_] := Exp[HarmonicNumber[n]] Log[HarmonicNumber[n]] // Floor;
%t A079527 Array[a, 64] (* _Jean-François Alcover_, Oct 08 2018 *)
%o A079527 (PARI) {h(n) = sum(k=1, n, 1/k)};
%o A079527 vector(80, n, floor( exp(h(n))*log(h(n))) ) \\ _G. C. Greubel_, Jan 15 2019
%o A079527 (Magma) [Floor(Exp(HarmonicNumber(n))*Log(HarmonicNumber(n))): n in [1..80]]; // _G. C. Greubel_, Jan 15 2019
%o A079527 (Sage) [floor(exp(harmonic_number(n))*log(harmonic_number(n))) for n in (1..80)] # _G. C. Greubel_, Jan 15 2019
%Y A079527 H_n = sum of harmonic series (see A002387).
%Y A079527 Cf. A079526.
%K A079527 nonn
%O A079527 1,3
%A A079527 _N. J. A. Sloane_, Jan 22 2003