%I#8 2021年4月10日08:07:01

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

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

%U 8,7,1,5,2,9,8,6,0,8,60,3,5,3,9,4,1,4,6,2,8,9,1,1,5,1,9,9,3,2,6

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

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

%e最小值：0.39327382732882884150383245205720625342659。。。

%e最大值：1.507928795380098266567899994070991413。。。

%t a=7；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，.3，.4}，工作精度->110]

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

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

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

%Y参考A201397。

%K nonn，cons公司

%0、1

%云雀金伯利，2011年12月1日