%I#8 2017年11月12日06:11:10

%S 1,0,1,8,7178910365157031269249751519756108809318525140587651，

%电话：630820408331708265099887849696969696849171315425333714935513，

%电话：50989040755064494917871584701588777346206575710072920359325847670560115633381442

%N行总和为A291843。

%H Gheorghe Coserea，n表，n=0..303的a（n）</a>

%F G.F.y（x）满足：0=2*x^2*（1+x）*y*导数（y，x）+x*y^2-（1+x）^2*。

%o（PARI）

%o A291843_ser（无，t=无）={

%o我的（x='x+o（'x^N），y=1，y1=0，N=1，

%o dn=1/（-2*t^2*x^4-（2*t^2+3*t）*x^3-（2*t+1）*x ^2+（2*t-1）*x+1））；

%o while（n++，

%o y1=（2*x^2*y'*（（-t^2+t）*x+（-t+1）+（t^2*x*2+（t^2+）*x+t）*y）+

%o（t*x^2+t*x）*y^2-（2*t^2*x^3+3*t*x*2+（-t+1）*x-1））*dn；

%o如果（y1==y，断裂）；y=y1；）；年；

%o}；

%o Vec（A291843_ser（20,1））

%Y参考A291843。

%K nonn公司

%0、4

%A _Gheorghe Coserea，2017年11月5日