%I#7 2022年1月16日00:49:53

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

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

%U 5，8，4，4，0，2，1，6，9，4，5，2，5，8

%N x>0的十进制展开式，其中x^2=4*cos（x）。

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

%e x=1.201538299340575111481508166568850491060835。。。

%t a=1；b=0；c=4；

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

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

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

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

%Y参考A197737。

%K非n，缺点

%O 1,2号机组

%A_Clark Kimberling_，2011年10月20日