Observations on A100004

[Robert G. Wilson v]

Tony is correct, something is wrong with the definition. The Mathematica coding 
which conforms to the stated definition is Last[RotateRight[IntegerDigits[n, 2, 
Max[1, Floor[Log[2, n] + 2]]], 1]] which yeilds the cyclic sequence beginning at 
zero of {0, 0, 1, 1}. Bob.

T. D. Noe wrote:

>>It appears that, taking A100004:
>>a(n) = (-1/n), where (k/n) is the Kronecker symbol
>>
>>and replacing +1 with 0 and -1 with 1, we obtain A038189:
>>Bit to left of least significant bit in binary expansion of n.
> 
> 
> I believe A038189 is misnamed.  It says the a(24) = 1, but 24 in binary is
> 11000, so we should have a(24) = 0.  The comment says it is the
> characteristic function of A092130, which is also false.  The formula also
> is not consistent with the description:  a(2n) = a(n)??  Something is amiss
> here!
> 
> Tony
>