|
Search: id:A014012
|
|
|
| A014012 |
|
Engel expansion of 1/Pi. |
|
+0
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; listen)
|
|
|
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: A107856 A128499 A048223 this_sequence A160721 A151836 A147582
Adjacent sequences: A014009 A014010 A014011 this_sequence A014013 A014014 A014015
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Simon Plouffe (simon.plouffe(AT)gmail.com)
|
|
|
Search completed in 0.002 seconds
|
