|
|
A006524
|
|
Egyptian fraction for 1/ Pi.
(Formerly M3509)
|
|
26
|
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; k = N[1/Pi, 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (* Artur Jasinski, Sep 22 2008 *)
|
|
PROG
|
(PARI) x = 1/Pi;
f(x, k) = if(k<1, x, f(x, k - 1) - 1/n(x, k));
n(x, k) = ceil(1/f(x, k - 1));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|