login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A004080 Least k such that H(k) >= n, where H(k) is the harmonic number sum_{i=1..k} 1/i. 23
0, 1, 4, 11, 31, 83, 227, 616, 1674, 4550, 12367, 33617, 91380, 248397, 675214, 1835421, 4989191, 13562027, 36865412, 100210581, 272400600, 740461601, 2012783315, 5471312310, 14872568831, 40427833596, 109894245429, 298723530401, 812014744422 (list; graph; refs; listen; history; internal format)
OFFSET

0,3

REFERENCES

J. V. Baxley, Euler's constant, Taylor's formula and slowly converging series, Math. Mag., 65 (1992), 302-313.

R. P. Boas, Jr. and J. W. Wrench, Jr., Partial sums of the harmonic series, Amer. Math. Monthly, 78 (1971), 864-870.

Bruno Rizzi and Cristina Scagliarini: I numeri armonici. Periodico di matematiche, "Mathesis", pp. 17-58, 1986, numbers 1-2 [From Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Jan 05 2009]

W. Sierpi\'{n}ski, Sur les decompositions de nombres rationnels, Oeuvres Choisies, Acad\'{e}mie Polonaise des Sciences, Warsaw, Poland, 1974, p. 181.

N. J. A. Sloane, Illustration for sequence M4299 (=A007340) in The Encyclopedia of Integer Sequences (with S. Plouffe), Academic Press, 1995.

LINKS

T. D. Noe, Table of n, a(n) for n=0..100 (using Hickerson's formula in A002387)

J. Derbyshire, Rainfall Records

Eric Weisstein's World of Mathematics, Harmonic Series

Eric Weisstein's World of Mathematics, Harmonic Number

Eric Weisstein's World of Mathematics, High-Water Mark

FORMULA

The quotient of two successive terms of this sequence has exp(1) for limit. - Sebastien Dumortier (sdumortier(AT)ac-limoges.fr), Jun 29 2005

a(n) = exp(n - gamma + o(1)) [From Charles R Greathouse IV Mar 10 2009]

EXAMPLE

a(2)=4 because 1/1+1/2+1/3+1/4>2

MATHEMATICA

aux[0] = 0; Do[aux[n] = Floor[Floor[Sum[1/i, {i, n}]]]; If[aux[n] > aux[n - 1], Print[n]], {n, 1, 14000}] (* J.M. Grau Ribas (grau(AT)telecable.es), Feb 20 2010 *)

PROG

(PARI) gp > t=0; n=0; for(i=1, 10^20, t+=1./i; if(t>=n, print(i, " ", t); n++)) - Thomas Gettys (tpgettys(AT)comcast.net), Jan 21 2007

CROSSREFS

Apart from first two terms, same as A002387.

Sequence in context: A104743 A165993 A192312 * A027115 A077995 A176573

Adjacent sequences:  A004077 A004078 A004079 * A004081 A004082 A004083

KEYWORD

nonn,nice

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com), Clark Kimberling (ck6(AT)evansville.edu)

EXTENSIONS

Terms for n >= 13 computed by Eric Weisstein (eric(AT)weisstein.com). Corrected by Jim Buddenhagen (jbuddenh(AT)gmail.com) and Eric W. Weisstein (eric(AT)weisstein.com), Feb 18 2001.

Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Apr 19 2003

More terms from Sebastien Dumortier (sdumortier(AT)ac-limoges.fr), Jun 29 2005

a(27) from Thomas Gettys (tpgettys(AT)comcast.net), Dec 05 2006

a(28) from Thomas Gettys (tpgettys(AT)comcast.net), Jan 21 2007

Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Mar 24 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 15 12:25 EST 2012. Contains 205786 sequences.