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

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

%T 1,8,4,3,7,0,8,6,1,5,6,4,3A,7,3,1,3,8,1,8,1,1,5,1,0,4,2,2，

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

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

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

%e x=1.508929773760175502255725449761848437086156437。。。

%t a=4；b=4；c=1；

%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/。查找根[f[x]==g[x]，{x，1.5，1.51}，工作精度->110]

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

%Y参考A200338。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年11月18日