%I#7 2021年8月9日07:41:36

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

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

%U 3,5,5,9,8,9,3,2,4,5,5.8,5,1,9,4,4,4],2,6,7,2,5,8,4,4，4,5,17,7

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

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

%e最小x：-0.897912178157737232709434745512383。。。

%e最大x：0.32048047796691351711421623476182676393。。。

%t a=3；b=2；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，-.9，-.8}，工作精度->110]

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

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

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

%Y参考A197737。

%K nonn，cons公司

%0、1

%A_Clark Kimberling_，2011年10月22日