A182257 Denominators of Egyptian fraction expansion of Pi.
1, 1, 1, 8, 61, 5020, 128541455, 162924332716605980, 28783052231699298507846309644849796, 871295615653899563300996782209332544845605756266650946342214549769447
Offset: 0
Keywords
Programs
-
Mathematica
lst={}; k=N[(Pi), 1000]; Do[s=Ceiling[1/k]; AppendTo[lst, s]; k=k-1/s, {n, 12}]; lst (* based on the Mma program from Vladimir Joseph Stephan Orlovsky in A001466 *)
-
PARI
localprec(200); my(v=Pi, d); vector(10, i, v-=1/(d=ceil(1/v)); d) \\ Ruud H.G. van Tol, May 29 2025 (use prec.1200 for 13 terms)
Comments