OFFSET
0,4
COMMENTS
Included for completeness. A001466 is the main entry.
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 *)
PROG
(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)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 21 2012
STATUS
approved
