%I#13 2015年11月19日08:06:44

%S 8，0，0，8，4，1，5，5，3，3，8，0，4，4，5，8，4，4，6，4，2，8，3，3，4，4，5，5，6，8，3，5，1，

%第3,4,2,0,2,5,9,7,7,6,0,0,5,3,5,5,3,0,6,5,3,1,7,0,4,5,6,2,9段，

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

%N具有最大x坐标的乘积{1+x^k，k>=1}的拐点的y坐标的十进制展开式。

%函数乘积{1+x^k，k>=1}有两个拐点：（-0.78983…，0.17671…）和（-0.23233…，0.80084…）。

%e y=0.8008415533880454584642833425683513420259777660005。。。

%tf[x_]：=f[x]=乘积[（1+x^k），{k，1,1000}]；

%tp[x_，z_]：=总和[n/（x+x^（1-n）），{n，z}]^2+总和[（n*x^；

%t绘图[f[x]，{x，-1，1}]（*绘图显示2个影响点。*）

%t t=x/。查找根[p[x，1000]，{x，-0.8}，工作精度->100]（*A257394*）

%t u=f[t]（*A257395*）

%t v=x/。查找根[p[x，200]，{x，-0.3}，工作精度->100]（*A257396*）

%t w=f[v]（*A257397*）

%t实际数字[t，10][[1]（*A257394*）

%t实际数字[u，10][[1]（*A257395*）

%t实际数字[v，10][[1]（*A257396*）

%t实际数字[w，10][[1]（*A257397*）

%t（*_彼得·莫塞斯，2015年4月21日*）

%t位数=107；QP=Q手锤；QPP[x_]：=使用[{dx=10^-数字}，（QP[-1，x+dx]-QP[-1,x-dx]）/（4*dx）]；x0=x/。N最小化[{QPP[x]，-1/2<x<0}，x，工作精度->4位数][2]；y=QP[-1，x0]/2；RealDigits[y，10，digits][[1]（*Jean-François Alcover_，2015年11月19日*）

%Y参见A257394、A257395和A257396。

%K nonn，cons，简单

%0、1

%A_Clark Kimberling_，2015年4月22日

%E更多数字来自Jean-François Alcover，2015年11月19日