A190610 a(1)=a(2)=1; thereafter a(n) = a(ceiling(n/2))-a(floor(n/2)).

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, -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, -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

Offset

1,1

Links

Table of n, a(n) for n=1..101.

Maple

f:=proc(n) option remember; local r; r:=1;
if n <= 2 then 1 else r*(f(ceil(n/2))-f(floor(n/2))); fi; end;

Crossrefs

Cf. A190608, A190609.

Sequence in context: A127239 A129186 A353494 * A095901 A374036 A087049

Adjacent sequences: A190607 A190608 A190609 * A190611 A190612 A190613

Keyword

sign

Author

N. J. A. Sloane, May 13 2011, based on a posting by Benoit CLOITRE to the Sequence Fans Mailing List, Apr 29 2011

Status

approved