|
Search: id:A068377
|
|
|
| A068377 |
|
Engel expansion of sinh(1). |
|
+0
3
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A009946 A094274 A094279
Adjacent sequences: A068374 A068375 A068376 this_sequence A068378 A068379 A068380
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 03 2002
|
|
|
Search completed in 0.002 seconds
|
