A182582 a(n) = (A096268(n) + A182581(n)) mod 2.

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

Offset

1

Links

Table of n, a(n) for n=1..105.

Dimitri Hendriks, Frits G. W. Dannenberg, Jorg Endrullis, Mark Dow and Jan Willem Klop, Arithmetic Self-Similarity of Infinite Sequences, arXiv preprint 1201.3786 [math.CO], 2012. See Table 1.

Mathematica

A096268 = Join[{{0}}, SubstitutionSystem[{0 -> {0, 1}, 1 -> {0, 0}}, {1}, 6]] // Flatten;
A182581 = Mod[IntegerExponent[Range[Length[A096268]], 3], 2];
Mod[A096268 + A182581, 2] (* Jean-François Alcover, Feb 13 2019 *)

Crossrefs

Cf. A007814, A096268, A007949, A182581.

Sequence in context: A189816 A342000 A194685 * A125720 A095130 A284789

Adjacent sequences: A182579 A182580 A182581 * A182583 A182584 A182585

Keyword

nonn

Author

N. J. A. Sloane, May 06 2012

Status

approved