OFFSET

0,3

COMMENTS

Related to the Thue-Morse sequence, A010060, which gives the rightmost binary bit of each term. The next bit is given by the closely related A269723.

If we replace A001511(n) in the definition by A006519(n) = 2^(A001511(n)-1) we get Gray code (A003188).

Interesting symmetries of the sequence seem more apparent with the terms aligned in suitable periods, such as the arrangement in the example section.

LINKS

Paolo Xausa, Table of n, a(n) for n = 0..16383

Rémy Sigrist, Colored representation of the first 2^15 terms as 128 rows of 256 terms (the color is function of a(x + 256*y), x = 0..255, y = 0..127)

EXAMPLE

Initial terms arranged in periods of 16, with deliberate periodic spacing:

0,1,3,2, 1,0,2,3, 7,6,4,5, 6,7,5,4,

1,0,2,3, 0,1,3,2, 6,7,5,4, 7,6,4,5,

3,2,0,1, 2,3,1,0, 4,5,7,6, 5,4,6,7,

2,3,1,0, 3,2,0,1, 5,4,6,7, 4,5,7,6,

.

1,0,2,3, 0,1,3,2, 6,7,5,4, 7,6,4,5,

0,1,3,2, 1,0,2,3, 7,6,4,5, 6,7,5,4,

2,3,1,0, 3,2,0,1, 5,4,6,7, 4,5,7,6,

3,2,0,1, 2,3,1,0, 4,5,7,6, 5,4,6,7,

...

Note that when the arrangement is partitioned regularly into 2 X 2, 4 X 4 or 8 X 8 squares, the terms on any diagonal of a square share the same value. Note also the symmetry of the terms on the squares' circumferences.

MATHEMATICA

Block[{k = 0}, NestList[BitXor[#, IntegerExponent[k += 2, 2]] &, 0, 100]] (* Paolo Xausa, May 29 2024 *)

CROSSREFS

KEYWORD

nonn,base,easy

AUTHOR

Peter Munn, Jun 29 2022

STATUS

approved