OFFSET
0,1
LINKS
Daniel Mondot, Table of n, a(n) for n = 0..999
EXAMPLE
MATHEMATICA
nmax = 17; cv = Convergents[Pi, 2*nmax] // Reverse; a[n_] := Select[cv, Denominator[#] <= 10^n &, 1] // Numerator // First; Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, Jan 04 2013 *)
PROG
(PARI) for(n=0, 40, print1(numerator(bestappr(Pi, 10^n)), ", ")) \\ Finds these approximations very quickly.
CROSSREFS
KEYWORD
easy,frac,nice,nonn
AUTHOR
Rick L. Shepherd, Jun 15 2002
STATUS
approved