%我
%第1,234167344134613262037954636792122339296829409134545,
%电话:7576865504552087068063552861296461311796019140704352872949,
%邮编:900755169727258516258516943733672733659042973913187364359073187434359017343797272727263813187364359017343797272726381318743435901734379727272726373919131874343437343437343434373434372727272727243434343434373434343434343
%A286781第2栏。
%H Gheorghe Coserea,<a href=“/A286787/b286787.txt”>n,a(n)表,n=2..211</a>
%o(平价)
%o A286781用户(N,t='t)={
%o我的(x='x+o('x^N),y0=1+o('x^N),y1=0,N=1);
%o while(n++,
%o y1=(1+x*y0+2*x^2*y0')*(1-x*y0*(1-t))/(1-x*y0)^2;
%o如果(y1==y0,break());y0=y1;);
%o y0;
%o};
%o Kol(K,N=20)={
%o my(s=A286781用户(N+K,'t+o('t^(K+1)));
%o向量(N,N,polcoeff(polcoeff(s,K+N-1),K));
%o};
%o Kol(2)
%参见A286781。
%不知道
%氧2,2
%2017年5月16日
|