login
Denominators of an Egyptian fraction for e^(-1), using only prime numbers.
2

%I #3 Aug 24 2012 10:50:01

%S 3,29,15787,167776541,4645498532379389,

%T 1088248917469233866137385062583,

%U 20134824338000979687246821562710150100678729578625534526933,7555384973907056074914229240175821963966793778695751877194777853748248059480070724299647198101903944083524382569707

%N Denominators of an Egyptian fraction for e^(-1), using only prime numbers.

%C Good approximation up to 799 decimal digits

%p P:=proc(n) local a,i; a:=evalf(exp(1)^(-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);

%Y Cf. A139514-A139516, A139518-A139523.

%K easy,nonn,frac

%O 0,1

%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Apr 28 2008