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

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

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

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

%N满足3*x^2-3*cos（x）=4的x>0的十进制展开式。

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

%e x=1.27477469729244956060192606401063809708471。。。

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

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

%t绘图[{f[x]，g[x]}，{x，-2，2}，}轴原点->{0，0}}]

%t r=x/。查找根[f[x]==g[x]，{x，1.2，1.3}，工作精度->110]

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

%Y参考A198755。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年11月1日