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

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

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

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

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

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

%至少：-3.024014501135293784775589627797395351659。。。

%e最接近于0:-0.7952261386054079889626155638871。。。

%最大值：3.2986275628038651802559413164923413431。。。

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

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

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

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

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

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

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

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

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

%Y参考A201741。

%K nonn，cons公司

%O 1,1号机组

%A_Clark Kimberling_，2011年12月6日