20/01/27 06:34:46.53 TorfSpoK.net
３～１０でのシミュレーション
> sapply(3:10,function(n) fpn(n,k=1e5))
[1] 0.66694 0.59719 0.55017 0.50919 0.47722 0.45076 0.42785 0.40860
積分値
> sapply(3:10,Pn)
[1] 0.6666603 0.5989594 0.5499998 0.5110238 0.4793651 0.4529209 0.4304178 0.4109626