1,1

G. C. Greubel, Table of n, a(n) for n = 1..2500

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

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

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 *)

Cf. A022853.

Sequence in context: A024584 A132713 A262312 * A271353 A098907 A153205

Adjacent sequences: A135293 A135294 A135295 * A135297 A135298 A135299

nonn,look

Franz Vrabec, Dec 04 2007

More terms from Stefan Steinerberger, Dec 05 2007

approved