%I#5 2012年3月30日18:58:02

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

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

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

%N满足x^2+9=e^x的数字x的十进制展开式。

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

%e x=2.8356005060359799676253591958762716085328。。。

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

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

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

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

%t真实数字[r]（*A201748*）

%Y参考A201741。

%K nonn，cons公司

%O 1,1号机组

%A_Clark Kimberling_，2011年12月5日