0,1
Good approximation up to 799 decimal digits
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);
Cf. A139514-A139520, A139522, A139523.
Sequence in context: A184843 A100362 A062439 * A019515 A094352 A073828
Adjacent sequences: A139518 A139519 A139520 * A139522 A139523 A139524
easy,nonn,frac
Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Apr 28 2008