|
Search: id:A028254
|
|
|
| A028254 |
|
Engel expansion of sqrt(2). |
|
+0
6
|
|
| 1, 3, 5, 5, 16, 18, 78, 102, 120, 144, 251, 363, 1402, 31169, 88630, 184655, 259252, 298770, 4196070, 38538874, 616984563, 1975413035, 5345718057, 27843871197, 54516286513, 334398528974, 445879679626
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
For a number x (here sqrt(2)), define a(1)<=a(2)<=a(3)<=... so that x = 1/a(1) + 1/a(1)a(2) + 1/a(1)a(2)a(3) + ... by x(1)=x, a(n) = ceil(1/x(n)), x(n+1) = x(n)a(n)-1.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..300
Naoki Sato, Home page
Eric Weisstein's World of Mathematics, Engel Expansion
Eric Weisstein's World of Mathematics, Pythagoras's Constant
|
|
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]]; EngelExp[N[2^(1/2), 7! ], 47] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 08 2009]
|
|
CROSSREFS
|
Cf. A006784 (for definition of Engel expansion).
Adjacent sequences: A028251 A028252 A028253 this_sequence A028255 A028256 A028257
Sequence in context: A089167 A028265 A084041 this_sequence A137780 A079372 A055382
|
|
KEYWORD
|
nonn,new
|
|
AUTHOR
|
Naoki Sato (naoki(AT)math.toronto.edu)
|
|
EXTENSIONS
|
More terms from Simon Plouffe (simon.plouffe(AT)gmail.com), Jan 05, 2002
|
|
|
Search completed in 0.002 seconds
|
