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

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

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

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

%N满足x^2+4x+4=e^x的最接近于0的x的十进制展开式。

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

%至少：-2.3143699029676280191739133920。。。

%e最接近0:-1.53607809402693113051136705。。。

%e最大值：3.3566939800333213068257690241。。。

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

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

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

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

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

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

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

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

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

%Y参考A201741。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年12月6日