%我

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

%T 3,8,4,3,4,8,7,2,9,2,8,5,7,5,9,6,5,6,9,8,3,4,8,5,2,3,4,5,7,3,5,4，

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

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

%C参见A201397获取相关序列指南。Mathematica程序包括一个图形。

%e最小值：0.47412769042075415934748938569551538434。。。

%e最大值：1.4792710652904107931042853415537602633。。。

%t a=5；c=0；

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

%t图[{f[x]，g[x]}，{x，0，Pi/2}，{AxesOrigin->{0，0}}]

%t r=x/。FindRoot[f[x]==g[x]，{x，.4，.5}，工作精度->110]

%t实数[r]（*A201412*）

%t r=x/。FindRoot[f[x]==g[x]，{x，1.4，1.5}，工作精度->110]

%t实数[r]（*A201413*）

%参见A201397。

%不，反对

%O 0,1

%阿尤克拉克金伯利，2011年12月1日