A051067 A051066 read mod 2.

0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1

Offset

0,1

References

Letter from Gary W. Adamson concerning Prouhet-Thue-Morse sequence, Nov. 11, 1999.

Links

Table of n, a(n) for n=0..104.

Mathematica

Mod[Accumulate[Join[{0}, Mod[Accumulate[Table[IntegerExponent[3*n, 3], {n, 1, 100}]], 2]]], 2] (* Amiram Eldar, Jun 02 2025 *)

Crossrefs

Cf. A004128, A051065, A051066.

Sequence in context: A029693 A200263 A373153 * A379955 A288858 A356313

Adjacent sequences: A051064 A051065 A051066 * A051068 A051069 A051070

Keyword

nonn,easy

Author

N. J. A. Sloane and Gary W. Adamson

Extensions

More terms from James Sellers, Dec 11 1999

Status

approved