The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A059184 Engel expansion of 1/log(10) = 0.434294.... 1
 3, 4, 5, 18, 27, 37, 415, 445, 1812, 2475, 3928, 6707, 14673, 65863, 89033, 265841, 1293955, 1525697, 2541166, 7906280, 107955268, 154190828, 887303031, 1767107652, 3068165143, 3209500563, 92762706640, 147991352023 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Cf. A006784 for definition of Engel expansion. REFERENCES F. Engel, Entwicklung der Zahlen nach Stammbruechen, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191. LINKS G. C. Greubel, Table of n, a(n) for n = 1..1000 F. Engel, Entwicklung der Zahlen nach Stammbruechen, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191. English translation by Georg Fischer, included with his permission. P. ErdÅ‘s and Jeffrey Shallit, New bounds on the length of finite Pierce and Engel series, Sem. Theor. Nombres Bordeaux (2) 3 (1991), no. 1, 43-53. MATHEMATICA EngelExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@ NestList[{Ceiling[1/Expand[#[[1]] #[[2]] - 1]], Expand[#[[1]] #[[2]] - 1]/1} &, {Ceiling[1/(A - Floor[A])], (A - Floor[A])/1}, n - 1]]; EngelExp[N[1/Log[10], 7!], 100] (* Modified by G. C. Greubel, Dec 27 2016 *) CROSSREFS Cf. A002285 (1/log(10)). Sequence in context: A224890 A263810 A249541 * A161961 A161474 A247573 Adjacent sequences:  A059181 A059182 A059183 * A059185 A059186 A059187 KEYWORD nonn,easy,nice AUTHOR STATUS approved

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

Last modified May 24 23:45 EDT 2020. Contains 334581 sequences. (Running on oeis4.)