A135296 - OEIS

%I #11 Oct 09 2016 15:48:27

%S 7,3,2,2,3,6,112,7,3,2,2,3,6,56,8,3,2,2,3,5,37,8,3,2,2,3,5,28,9,4,2,2,

%T 3,5,22,10,4,2,2,2,5,18,11,4,2,2,2,4,16,12,4,2,2,2,4,14,14,4,2,2,2,4,

%U 12,16,4,2,2,2,4,11,18,5,2,2,2,4,10,22,5,3,2,2,4,9,28,5,3,2,2

%N A measure of quality (the higher the better) for the approximation to Pi by rationals A022853(n)/n.

%H G. C. Greubel, <a href="/A135296/b135296.txt">Table of n, a(n) for n = 1..2500</a>

%F a(n) = [1/|n*Pi-A022853(n)|].

%e a(7)=112 because [1/|7*Pi-22|] = [1/|-0.0088514|] = [112.976] = 112.

%t a = {}; For[n = 1, n < 90, n++, AppendTo[a, Floor[1/(If[FractionalPart[n*Pi] > 1/2, Ceiling[n*Pi] - n*Pi, n*Pi - Floor[n*Pi]])]]]; a (* _Stefan Steinerberger_, Dec 05 2007 *)

%Y Cf. A022853.

%K nonn,look

%O 1,1

%A _Franz Vrabec_, Dec 04 2007

%E More terms from _Stefan Steinerberger_, Dec 05 2007