OFFSET
0,5
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..500
C. G. Bower, Transforms (2)
PROG
(PARI)
BIK(p)={(1/(1-p) + (1+p)/subst(1-p, x, x^2))/2}
EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}
seq(n)={my(p=O(x)); for(n=1, n, p=x+x^2*Ser(EulerT(Vec(BIK(p)-1)-Vec(p)))); concat([0], Vec(BIK(p)-1)-Vec(p))} \\ Andrew Howroyd, Aug 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Nov 15 1998
STATUS
approved