OFFSET
1,1
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..11 [a(11) corrected by Georg Fischer, Jun 04 2019]
H. P. Robinson, Letter to N. J. A. Sloane, Sep 1975
Eric Weisstein's World of Mathematics, Egyptian Fraction
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));
for(k = 1, 7, print1(n(x, k), ", ")) \\ Indranil Ghosh, Mar 27 2017
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
EXTENSIONS
More terms from Herman P. Robinson
Offset changed to 1 by Indranil Ghosh, Mar 27 2017
STATUS
approved