OFFSET
1,2
COMMENTS
Cf. A006784 for definition of Engel expansion.
(sqrt(5) - 1)/2 = 1/(golden ratio) has the same Engel expansion starting with a(2). - G. C. Greubel, Oct 16 2016
Each Engel expansion for a constant x (x > 0) starts with floor(x) 1's. After that, the mean growth of the terms is by a factor e for most constants x, i.e., the order of magnitude of the n-th entry is exp(n-floor(c)), for n large enough. This comment is similar to the fact that for the continued fraction terms of most constants, the geometric mean of those terms equals the Khintchine constant for n large enough. Moreover, note that for the golden section, all continued fraction terms are 1 and thus do not obey the Gauss-Kuzmin distribution which leads to the Khintchine constant (i.e., the Khintchine measure for the golden ratio is 1), but the Engel expansion does obey the statistic behavior for most constants. - A.H.M. Smeets, Aug 24 2018
REFERENCES
F. Engel, Entwicklung der Zahlen nach Stammbruechen, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191.
LINKS
A.H.M. Smeets, Table of n, a(n) for n = 1..2406 (Terms 1 through 300 from T. D. Noe, 301 through 698 from Simon Plouffe, and 699 through 1500 from G. C. Greubel)
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, Sém. Théor. Nombres Bordeaux (2) 3 (1991), no. 1, 43-53.
Eric Weisstein's World of Mathematics, Engel Expansion
Eric Weisstein's World of Mathematics, Golden Ratio
FORMULA
Limit_{n -> oo} log(a(n + floor(golden ratio)))/n = 1.
MATHEMATICA
EngelExp[ A_, n_ ] := Join[ Array[ 1&, Floor[ A ] ], First@Transpose@NestList[ {Ceiling[ 1/Expand[ #[ [ 1 ] ]#[ [ 2 ] ]-1 ] ], Expand[ #[ [ 1 ] ]#[ [ 2 ] ]-1 ]}&, {Ceiling[ 1/(A-Floor[ A ]) ], A-Floor[ A ]}, n-1 ] ]
PROG
(Python)
j = 0
while j<3100000:
# to obtain n correct Engel expansion terms about n^2/2 continued fraction steps are needed; 3100000 is a safe bound
if j == 0:
p0, q0 = 1, 1
elif j == 1:
p1, q1 = p0+1, 1
else:
p0, p1 = p1, p1+p0
q0, q1 = q1, q1+q0
j = j+1
i = 0
while i < 2410:
i = i+1
a = q0//p0+1
print(i, a)
p0 = a*p0-q0
# A.H.M. Smeets, Aug 24 2018
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
Naoki Sato (naoki(AT)math.toronto.edu), Dec 11 1999
EXTENSIONS
Corrected and extended by Vladeta Jovovic, Aug 16 2001
STATUS
approved