%I#8 2018年7月1日08:34:51

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

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

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

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

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

%H G.C.Greubel，n的表格，n=1..10000的a（n）</a>

%e最小x:0.21220726159791829897823740501037540。。。

%e最大x：1.164720132600086548144173603917629。。。

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

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

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

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

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

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

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

%o（PARI）a=3；b=-1；c=4；求解（x=1,2，a*x^2+b*cos（x）-c*sin（x））\\_G.c.Greubel_，2018年6月30日

%Y参考A199949。

%K nonn，cons公司

%氧1,3

%A_Clark Kimberling_，2011年11月14日