login
A035084
BIK(b)-b where b is A035082.
5
0, 0, 1, 1, 2, 4, 9, 20, 47, 112, 273, 676, 1694, 4296, 10991, 28350, 73614, 192327, 505093, 1332801, 3531598, 9393501, 25070735, 67121670, 180216260, 485133376, 1309101329, 3540394176, 9594562328, 26051397890, 70861839620
OFFSET
0,5
LINKS
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