>>18
πに直ぐに近づいた

> data.frame(n=n,pq=y)
n pq
1 1 4.0000000000000000
2 2 3.0000000000000000
3 3 3.1666666666666665
4 4 3.1372549019607843
5 5 3.1423423423423422
6 6 3.1414634146341465
7 7 3.1416149068322983
8 8 3.1415888250921244
9 9 3.1415933118799275
10 10 3.1415925404465401
11 11 3.1415926730303347
12 12 3.1415926502502449
13 13 3.1415926541633663
14 14 3.1415926534912950
15 15 3.1415926536067063
16 16 3.1415926535868897
17 17 3.1415926535902923
18 18 3.1415926535897079
19 19 3.1415926535898087
20 20 3.1415926535897918