%I#2021年4月10日8日15:41:16

%S 1,2,3,9,0,8,2,6,2,0,9,2,7,5,8,1,9,1,8,7,1,5,1,0,92,3,9，9,0,1,9,8,5，

%温度5,3,8,0,5,9,7,0,2,3,5,0,1,4,3,6,4,9,1,5,7,2,1,6,0,1,1,7,3,8，1,6,9,8,5，

%U 5,6,7,6,8,9,16,6,6,17,5,4,8,3,7,7,8,0,8,8,7,9,7,5,19,0

%N满足2*x^2=sec（x）和0<x<Pi的最大x的十进制展开。

%C有关相关序列的指南，请参见A201397。Mathematica程序包含一个图形。

%e最小值：0.892874306058961124447371969018677514。。。

%e最大值：1.2390826209275819187151092399019855。。。

%t a=2；c=0；

%t f[x_]：=a*x^2+c；g[x_]：=秒[x]

%t绘图[{f[x]，g[x]}，{x，0，Pi/2}，}轴原点->{0，0}}]

%t r=x/。查找根[f[x]==g[x]，{x，.8，1}，工作精度->110]

%t实际数字[r]（*A201406*）

%t r=x/。查找根[f[x]==g[x]，{x，1.2，1.3}，工作精度->110]

%t实际数字[r]（*A201407*）

%Y参考A201397。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年12月1日