|
%I #9 Aug 30 2018 22:13:27
%S 0,0,1,1,2,4,9,20,47,112,273,676,1694,4296,10991,28350,73614,192327,
%T 505093,1332801,3531598,9393501,25070735,67121670,180216260,485133376,
%U 1309101329,3540394176,9594562328,26051397890,70861839620
%N BIK(b)-b where b is A035082.
%H Andrew Howroyd, <a href="/A035084/b035084.txt">Table of n, a(n) for n = 0..500</a>
%H C. G. Bower, <a href="/transforms2.html">Transforms (2)</a>
%o (PARI)
%o BIK(p)={(1/(1-p) + (1+p)/subst(1-p, x, x^2))/2}
%o EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
%o 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
%Y Cf. A035082, A035083, A035085.
%K nonn
%O 0,5
%A _Christian G. Bower_, Nov 15 1998
|
