OFFSET
0,1
COMMENTS
Good approximation up to 799 decimal digits
MAPLE
P:=proc(n) local a, i; a:=evalf((sqrt(2))-1, 100); print(2); print(2); for i from 1 by 1 to n do if 1/ithprime(i)<a then a:=a-1/ithprime(i); print(a); print(ithprime(i)); fi; od; end: P(100000);
CROSSREFS
KEYWORD
easy,nonn,frac
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Apr 28 2008
STATUS
approved