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

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

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

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

%N满足x*sinh（x）=3的x>0的十进制展开式。

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

%e x=1.464877334363454125789200037551063776294993。。。

%t u=1；v=3；

%t f[x_]：=x*正弦[u*x]；g[x_]：=v

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

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

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

%Y参考A201946。

%K nonn，cons公司

%O 1,2号机组

%A_Clark Kimberling_，2011年12月15日