login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079526 a(n) = floor( exp(H_n)*log(H_n) ) - sigma(n). 5
-1, -2, -1, -2, 2, -2, 4, 0, 4, 2, 10, -3, 13, 6, 9, 4, 20, 2, 23, 4, 17, 16, 31, -3, 29, 21, 26, 13, 42, 3, 46, 18, 36, 32, 41, 1, 57, 38, 45, 14, 65, 14, 69, 32, 41, 51, 78, 5, 75, 42, 66, 43, 90, 27, 78, 33, 76, 70, 103, -2, 107, 76, 71, 51, 98, 41, 120, 65, 98, 53 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
M. Kaneko has shown that the Riemann hypothesis is equivalent to the assertion that a(n) > 0 for n > 60.
LINKS
J. C. Lagarias, An elementary problem equivalent to the Riemann hypothesis, arXiv:math/0008177 [math.NT], 2000-2001; Am. Math. Monthly 109 (#6, 2002), 534-543.
MATHEMATICA
f[n_] := Floor[Exp[HarmonicNumber[n]]Log[HarmonicNumber[n]]] - DivisorSigma[1, n]; Array[f, 70] (* Robert G. Wilson v, Dec 17 2016 *)
PROG
(PARI) {h(n) = sum(k=1, n, 1/k)};
vector(80, n, floor( exp(h(n))*log(h(n))) - sigma(n, 1) ) \\ G. C. Greubel, Jan 15 2019
(Magma) [Floor(Exp(HarmonicNumber(n))*Log(HarmonicNumber(n))) - DivisorSigma(1, n): n in [1..80]]; // G. C. Greubel, Jan 15 2019
(Sage) [floor(exp(harmonic_number(n))*log(harmonic_number(n))) - sigma(n, 1) for n in (1..80)] # G. C. Greubel, Jan 15 2019
CROSSREFS
H_n = sum of harmonic series (see A002387), sigma(n) = A000203.
Sequence in context: A123920 A322141 A029170 * A353339 A291708 A163822
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Jan 22 2003
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 01:34 EDT 2024. Contains 370952 sequences. (Running on oeis4.)