|
Search: id:A118239
|
|
|
| A118239 |
|
Engel expansion of cosh(1). |
|
+0
1
|
|
| 1, 2, 12, 30, 56, 90, 132, 182, 240, 306, 380, 462, 552, 650, 756, 870, 992, 1122, 1260, 1406, 1560, 1722, 1892, 2070, 2256, 2450, 2652, 2862, 3080, 3306, 3540, 3782, 4032, 4290, 4556, 4830, 5112, 5402, 5700, 6006, 6320, 6642, 6972, 7310, 7656, 8010, 8372
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Differs from A002939 only in first term.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Engel Expansion
Eric Weisstein's World of Mathematics, Pierce Expansion
|
|
FORMULA
|
A118239(n) = A002939(n-1) = 2(n-1)(2n-3) for 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]]; EngelExp[N[Cosh[1], 7! ], 50] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 08 2009]
|
|
CROSSREFS
|
Cf. A002939, A068377.
Sequence in context: A156021 A067348 A002939 this_sequence A127118 A083175 A019258
Adjacent sequences: A118236 A118237 A118238 this_sequence A118240 A118241 A118242
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Apr 17, 2006
|
|
|
Search completed in 0.002 seconds
|
