3,1

Numerators of sequence {3/1, 13/4, 16/5, 19/6, 22/7, 179/57, 201/64, 223/71, 245/78, 267/85, 289/92, 311/99, 333/106, 355/113, 52163/16604, 52518/16717, 52873/16830, 53228/16943, 53583/17056, 53938/17169, 54293/17282, 54648/17395, 55003/17508, 55358/17621, 55713/17734, 56068/17847, 56423/17960, 56778/18073, 57133/18186, 57488/18299, 57843/18412, 58198/18525, 58553/18638, 58908/18751, 59263/18864, 59618/18977, 59973/19090, 60328/19203, 60683/19316, 61038/19429, 61393/19542, 61748/19655, 62103/19768, 62458/19881, 62813/19994, 63168/20107, 63523/20220, 63878/20333, 64233/20446, 64588/20559, 64943/20672, 65298/20785, 65653/20898, 66008/21011, 66363/21124, 66718/21237, 67073/21350, 67428/21463, 67783/21576, 68138/21689, 68493/21802, 68848/21915, 69203/22028, 69558/22141, 69913/22254, 70268/22367, 70623/22480, 70978/22593, 71333/22706, 71688/22819, 72043/22932, 72398/23045, 72753/23158, 73108/23271, 73463/23384, 73818/23497, 74173/23610, 74528/23723, 74883/23836, 75238/2

piapprox[n_] := Block[{a, i}, a = {3/1}; For[i = 2, i <= n, i++, If[Abs[Round[i Pi]/i - Pi] < Abs[Last[a] - Pi], AppendTo[a, Round[i Pi]/i], Null]]; Return[a]] [From Suren Fernando via Alexander. R. Povolotsky (pevnev(AT)juno.com), Aug 03 2008]

A063673.

Cf. A057082. [From Jaume Oliver Lafont (joliverlafont(AT)gmail.com), Feb 21 2009]

Sequence in context: A032919 A023144 A152269 this_sequence A022124 A042133 A041297

Adjacent sequences: A063671 A063672 A063673 this_sequence A063675 A063676 A063677

frac,nonn

Suren L. Fernando (fernando(AT)truman.edu), Jul 27 2001