|
| |
|
|
A014012
|
|
Engel expansion of 1/Pi.
|
|
1
| |
|
|
4, 4, 11, 45, 70, 1111, 4423, 5478, 49340, 94388, 200677, 308749, 708066, 711391, 1113024, 4342375, 4529119, 8061070, 12060867, 56215509, 69737317, 124001030, 214920537, 471564389, 891380746
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..300
Index entries for sequences related to Engel expansions
|
|
|
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[1/Pi, 7! ], 50] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 08 2009]
|
|
|
CROSSREFS
| See A006784 for definition.
Sequence in context: A168373 A128499 A048223 * A178182 A160721 A151836
Adjacent sequences: A014009 A014010 A014011 * A014013 A014014 A014015
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Simon Plouffe (simon.plouffe(AT)gmail.com)
|
| |
|
|
