>>841
分数表示だとわかりにくので小数表示にしてみた
> data.frame(n=n,p=round(y,10))
n p
1 3 0.0000000000
2 4 0.0000000368
3 5 0.0002724084
4 6 0.0179442232
5 7 0.1206385225
6 8 0.2369038167
7 9 0.2387912400
8 10 0.1700180792
9 11 0.1014361440
10 12 0.0553709747
11 13 0.0289103453
12 14 0.0147631428
13 15 0.0074557750
14 16 0.0037446174
15 17 0.0018755376
16 18 0.0009380966
17 19 0.0004688908
18 20 0.0002342865
19 21 0.0001170439
20 22 0.0000584673
21 23 0.0000292051
22 24 0.0000145879
23 25 0.0000072866
24 26 0.0000036396
25 27 0.0000018179
26 28 0.0000009080
27 29 0.0000004536
28 30 0.0000002265