%I #10 Jan 11 2023 06:40:22
%S 1,1,0,0,-1,0,0,0,-1,0,1,0,0,0,0,0,-1,0,1,0,1,0,-1,0,0,0,0,0,0,0,0,0,
%T -1,0,1,0,1,0,-1,0,1,0,-1,0,-1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U -1,0,1,0,1,0,-1,0,1,0,-1,0,-1,0,1,0,1,0,-1,0,-1,0,1,0,-1,0,1,0,1,0,-1,0,0,0,0,0,0
%N a(1)=a(2)=1; thereafter a(n) = a(ceiling(n/2))-a(floor(n/2)).
%p f:=proc(n) option remember; local r; r:=1;
%p if n <= 2 then 1 else r*(f(ceil(n/2))-f(floor(n/2))); fi; end;
%Y Cf. A190608, A190609.
%K sign
%O 1,1
%A _N. J. A. Sloane_, May 13 2011, based on a posting by Benoit CLOITRE to the Sequence Fans Mailing List, Apr 29 2011
|