login
A009545 alternated with its first differences.
2

%I #10 Oct 15 2017 19:15:14

%S 0,1,1,1,2,0,2,-2,0,-4,-4,-4,-8,0,-8,8,0,16,16,16,32,0,32,-32,0,-64,

%T -64,-64,-128,0,-128,128,0,256,256,256,512,0,512,-512,0,-1024,-1024,

%U -1024,-2048,0,-2048,2048,0,4096,4096,4096,8192,0,8192,-8192,0,-16384,-16384

%N A009545 alternated with its first differences.

%C The unsigned sequence contains 3 copies of the strictly positive powers of 2.

%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0, 2, 0, -2).

%F a(2n)= A009545(n). a(2n+1)= A009545(n+1)-A009545(n) = (-1)^(n+1)*A009116(n).

%F a(n) = 2a(n-2)-2a(n-4). a(n) = -4a(n-8), n > 7.

%F O.g.f.: x(1+x-x^2)/(1-2x^2+2x^4). - _R. J. Mathar_, Jul 08 2008

%t With[{c=LinearRecurrence[{2,-2},{0,1},40]},Riffle[c,Differences[c]]] (* or *) LinearRecurrence[{0,2,0,-2},{0,1,1,1},80] (* _Harvey P. Dale_, Oct 15 2017 *)

%Y Cf. A000079.

%K sign

%O 0,5

%A _Paul Curtz_, May 05 2008

%E Edited by _R. J. Mathar_, Jul 08 2008