|
%I #13 Jun 04 2018 03:11:55
%S 1,0,-1,2,-4,8,-12,8,15,-56,81,-26,-130,208,306,-2060,4796,-5120,
%T -6140,43320,-113768,182720,-111768,-395696,1725172,-3922016,5614348,
%U -2289912,-14957416,56700032,-121684568,164735504,-47657969,-491084768,1740799985,-3598600386,4619098604
%N Sequence is defined by property that binomial transform of (a0,a1,a2,a3,...) = (a0,a0,a1,a1,a2,a2,a3,a3,...).
%H Alois P. Heinz, <a href="/A051165/b051165.txt">Table of n, a(n) for n = 0..1000</a>
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%p a:= proc(n) option remember; add(`if`(k<2, 1,
%p a(iquo(k, 2)))*(-1)^(n-k)*binomial(n, k), k=0..n)
%p end:
%p seq(a(n), n=0..45); # _Alois P. Heinz_, Jul 08 2015
%t a[n_] := a[n] = Sum[If[k<2, 1, a[Quotient[k, 2]]]*(-1)^(n-k)*Binomial[n, k], {k, 0, n}];
%t Table[a[n], {n, 0, 45}] (* _Jean-François Alcover_, Jun 04 2018, from Maple *)
%Y Cf. A051163, A051164, A051166.
%K easy,sign,eigen
%O 0,4
%A _Jonas Wallgren_
%E More terms from _Vladeta Jovovic_, Jul 26 2002
|
