|
%I #16 Feb 10 2015 09:04:56
%S 1,1,1,8,61,5020,128541455,162924332716605980,
%T 28783052231699298507846309644849796,
%U 871295615653899563300996782209332544845605756266650946342214549769447
%N Denominators of Egyptian fraction expansion of Pi.
%C Included for completeness. A001466 is the main entry.
%t 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 *)
%Y Cf. A001466, A224230.
%K nonn
%O 0,4
%A _N. J. A. Sloane_, Apr 21 2012
|
