|
| |
|
|
A068377
|
|
Engel expansion of sinh(1).
|
|
2
| |
|
|
1, 6, 20, 42, 72, 110, 156, 210, 272, 342, 420, 506, 600, 702, 812, 930, 1056, 1190, 1332, 1482, 1640, 1806, 1980, 2162, 2352, 2550, 2756, 2970, 3192, 3422, 3660, 3906, 4160, 4422, 4692, 4970, 5256, 5550, 5852, 6162, 6480, 6806, 7140, 7482, 7832, 8190
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Cf. A006784
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Engel Expansion
Eric Weisstein's World of Mathematics, Hyperbolic Sine
Eric Weisstein's World of Mathematics, Pierce Expansion
|
|
|
FORMULA
| a(n)=A002943(n)=2n(2n+1) 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[Sinh[1], 7! ], 22] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 08 2009]
|
|
|
CROSSREFS
| Sequence in context: A143711 A077539 A002943 * A009946 A094274 A094279
Adjacent sequences: A068374 A068375 A068376 * A068378 A068379 A068380
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 03 2002
|
| |
|
|
