-1 raised to the power of the number of 11-blocks in the binary representation of n
1, 1, 1, -1, 1, 1, -1, 1, 1, 1, 1, -1, -1, -1, 1, -1, 1, 1, 1, -1, 1, 1, -1, 1, -1, -1, ...
a_n = (-1)^Count[Partition[IntegerDigits[n, 2], 2, 1], {1, 1}]
Table[(-1)^Count[Partition[IntegerDigits[k, 2], 2, 1], {1, 1}], {k, 0, n}]