A035084 BIK(b)-b where b is A035082.
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
Keywords
Links
- Andrew Howroyd, Table of n, a(n) for n = 0..500
- C. G. Bower, Transforms (2)
Programs
-
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