%I#6 2012年3月30日18:58:00
%S 1,4,2,6,6,3,5,1,0,9,9,3,3,0,4,8,0,9,0,1,4,9,2,5,7,1,4,1,9,6,1,0,1,4,
%T 3,4,4,2,4,9,7,2,8,1,7,6,8,0,7,7,5,4,0,6,1,2,7,6,18,6,5,9,1,3,8,4,4,
%U 1,5,5,0,6,0,1,5,6,7,5,3,8,3,1,8,9,4,7,0,2,4,8,5,1,8,8,7,9,1
%N满足x^2+2x+2=tan(x)的最小x>0的十进制展开式。
%C相关序列指南见A200338。Mathematica程序包含一个图形。
%e x=1.42663510993304380901492571149610434497281。。。
%t a=1;b=2;c=2;
%t f[x_]:=a*x^2+b*x+c;g[x_]:=Tan[x]
%t绘图[{f[x],g[x]},{x,-.1,Pi/2},[AxesOrigin->{0,0}}]
%t r=x/。查找根[f[x]==g[x],{x,1.4,1.5},工作精度->110]
%t实际数字[r](*A200347*)
%Y参考A200338。
%K nonn,cons公司
%O 1,2号机组
%A_Clark Kimberling_,2011年11月16日
|