|
| |
|
|
A118239
|
|
Engel expansion of cosh(1).
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 * A127118 A083175 A019258
Adjacent sequences: A118236 A118237 A118238 * A118240 A118241 A118242
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Apr 17, 2006
|
| |
|
|
