OFFSET
0,1
COMMENTS
Good approximation up to 800 decimal digits
MAPLE
P:=proc(n) local a, i; a:=evalf((1+sqrt(5))/2-1, 100); 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