|
%I #17 Sep 08 2022 08:45:49
%S 1,2,-2,0,6,-18,36,-54,54,0,-162,486,-972,1458,-1458,0,4374,-13122,
%T 26244,-39366,39366,0,-118098,354294,-708588,1062882,-1062882,0,
%U 3188646,-9565938,19131876,-28697814,28697814,0,-86093442,258280326,-516560652
%N Inverse binomial transform of A169609, or of A144437 preceded by 1.
%H G. C. Greubel, <a href="/A168615/b168615.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (-3,-3).
%F a(n) = -3*a(n-1) - 3*a(n-2) for n > 2; a(0) = 1, a(1) = 2, a(2) = -2.
%F a(n) = 2*A123877(n-1), n>0.
%F G.f.: 1+2*x*(1+2*x)/(1+3*x+3*x^2).
%F a(6*m + 3) = 0, m>=0. - _G. C. Greubel_, Jul 27 2016
%t Join[{1,2,-2}, LinearRecurrence[{-3, -3}, {0, 6}, 25]] (* _G. C. Greubel_, Jul 27 2016 *)
%o (Magma) [ n le 2 select n else n eq 3 select -2 else -3*Self(n-1)-3*Self(n-2): n in [1..37] ]; // _Klaus Brockhaus_, Dec 03 2009
%Y Cf. A169609, A144437, A000748, A057083, A057682.
%K sign
%O 0,2
%A _Paul Curtz_, Dec 01 2009
%E Edited and extended by _Klaus Brockhaus_, Dec 03 2009
|
