%I#5 2012年3月30日18:58:00

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

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

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

%N满足4*x^2+2*x+3=tan（x）的最小x>0的十进制展开式。

%C相关序列指南见A200338。Mathematica程序包含一个图形。

%e x=1.5045065203188760005865848119760438054872266309790。。。

%t a=4；b=2；c=3；

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

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

%t r=x/。FindRoot[f[x]==g[x]，｛x，1.5，1.51｝，WorkingPrecision->110]

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

%Y参考A200338。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年11月18日