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

Author

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

Keywords

• nonn
• easy

References

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

Crossrefs

Cf. A004128, A051065, A051066.

Programs

Mathematica

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

Extensions

More terms from James Sellers, Dec 11 1999