login
A139519
Denominators of an Egyptian fraction for Euler-Mascheroni constant, using only prime numbers and allowing repetitions.
2
2, 13, 3433, 770741, 9157546933, 68379695298643311959, 177698848753108581519320740556520784033, 191429752162010655176200572455622919752517437701651231352646653127630507601
OFFSET
0,1
COMMENTS
Good approximation up to 801 decimal digits
MAPLE
P:=proc(n) local a, i; a:=evalf(gamma, 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
STATUS
approved