%I#13 2016年12月7日10:29:18
%S 1,4756435748017604001783425001077702017707163778485438755160,
%电话:1624026227431503211717163458831477973851951931395140327976600,
%电话:38990784387938426320772661145332506075331918772326916169937061302541
%N毕达哥拉斯近似b(N)/a(N)到sqrt(1/2)的分母a(N)。
%C有关讨论和参考,请参见A195500。
%t r=平方英尺[1/2];z=30;
%tp[{f,n}]:=(#1[[2]]/#1[[
%t1]]&)[({2#1[[1]]#1[[2]],#1[[1]]^2-#1[[
%t2]]^2}&)[({分子[#1],分母[#1]}&)[
%t数组[FromContinuedFraction[
%t连续分数[(#1+Sqrt[1+#1^2]&)[f],#1]]&,{n}]]];
%t{a,b}=({分母[#1],分子[#1]}&)[
%t p[{r,z}]](*A195625,A195626*)
%t平方[a^2+b^2](*A195627*)
%t(*_彼得·莫塞斯,2011年9月2日*)
%Y参考A195500、A195626和A195627。
%K nonn,压裂
%O 1,2号机组
%A_Clark Kimberling_,2011年9月22日