r=5;z=20;
p[{f,n}]:=(#1[[2]]/#1[[
1]] &)[({2 #1[[1]] #1[[2]], #1[[1]]^2 - #1[[
2] ]^2}&)[({分子[#1],分母[#1]}&)[
数组[FromContinuedFraction[
连续分数[(#1+Sqrt[1+#1^2]&)[f],#1]]&,{n}]]];
{a,b}=({分母[#1],分子[#1]}&)[
线性递归[{101,101,-1},{20,2020,206040},20](*哈维·P·戴尔2021年10月17日*)