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

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

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

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

%N满足x^2+5x+1=e^x的最小x的十进制展开式。

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

%至少：-4.79309545512749358956562110850420。。。

%最大值：3.377361484197400579255025058889。。。

%t a=1；b=5；c=1；

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

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

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

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

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

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

%Y参考A201741。

%K nonn，cons公司

%O 1,1号机组

%A_Clark Kimberling_，2011年12月6日