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

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

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

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

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

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

%e最小x：-0.6986567055323602628379046584016603229。。。

%e最大x:0.41073056810531967884261632168842932。。。

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

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

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

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

%t真实数字[r1]（*A198214*）

%t r2=x/。查找根[f[x]==g[x]，{x，4.1，4.2}，工作精度->110]

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

%Y参考A197737。

%K nonn，cons公司

%0、1

%A_Clark Kimberling_，2011年10月22日