%I#7 2021年8月9日13:59:59

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

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

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

%N满足e^（-x）=3*sin（x）的最小正数x的十进制展开式。

%e x=0.259948213533212806677522636846326798938719239635636。。。

%t图[{E^（-x），Sin[x]，2Sin[x],3Sin[x]，4Sin[x4]}，{x，0，Pi/2}]

%t t=x/。查找根[E^（-x）==Sin[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*参见A069997*）

%t t=x/。查找根[E^（-x）==2正弦[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*A196407*）

%t t=x/。查找根[E^（-x）==3Sin[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*A196408*）

%t t=x/。查找根[E^（-x）==4 Sin[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*A196409*）

%t t=x/。查找根[E^（-x）==5 Sin[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*A196462*）

%t t=x/。查找根[E^（-x）==6正弦[x]，{x，0，1}，工作精度->100]

%t实际数字[t]（*A196463*）

%K nonn，cons公司

%0、1

%A_Clark Kimberling_，2011年10月2日