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