%I#5 2012年3月30日18:57:53

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

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

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

%N最小x的十进制展开式，具有2*x^2+3x=4*cos（x）。

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

%e最小x：-1.5399952272668390818059885802040。。。

%e最大x：0.6975345552284129937951740662521298。。。

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

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

%t图[{f[x]，g[x]}，{x，-2，1}]

%t r1=x/。查找根[f[x]==g[x]，{x，-1.54，-1.539}，工作精度->110]

%t实际数字[r1]（*A198134*）

%t r2=x/。FindRoot[f[x]==g[x]，｛x，.79，.70｝，WorkingPrecision->110]

%t实际数字[r2]（*A198135*））

%Y参考A197737。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年10月22日