(PARI)a(n)=如果(n<0,0,n!*polceoff(1/(cos(2*x+x*O(x^n))-sin(2*x+x*0(x^n)),n))
(鼠尾草)
从mpmath导入mp,lerchphi
mp.dps=32;mp.pretty=真
定义A079858号(n) :返回abs(2*8^n*lerchphi(-1,-n,1/4))
(PARI)x='x+O('x^66);v=Vec(serlaplace(1/(cos(2*x)-sin(2*x)))\\约尔格·阿恩特2013年4月27日