%I#6 2012年3月30日18:57:54
%S 9,6,3,1,0,4,6,2,0,6,8,8,1,9,1,7,8,6,,3,7,3,3,9,5,4,9,18,5,0,1,
%T 8,1,6,3,6,1,5,9,2,0,3,0,6,0,36,9,9,8,6,5,5,0,2,3,9,2,5,0,7,0,
%U 4,7,7,3,0,4,6,3,6,7,0,3,1,1,4,4,6,5,1,5,7,1,7,3,2,3,9,8,0,4
%N满足4*x^2-3x=sin(x)的x>0的十进制展开式。
%C有关相关序列的指南,请参见A198414。Mathematica程序包含一个图形。
%e x=0.9631046206881917863739549185500181636159203。。。
%t a=4;b=-3;c=1;
%t f[x_]:=a*x^2+b*x;g[x_]:=c*正弦[x]
%t图[{f[x],g[x]},{x,-.2,1}]
%t r=x/。查找根[f[x]==g[x],{x,.96,.97},工作精度->110]
%t实际数字[r](*A198573*)
%Y参考A198414。
%K nonn,cons公司
%0、1
%A_Clark Kimberling_,2011年10月27日