A241979 (0,1) sequence such that lengths of three consecutive runs are always distinct.

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

Offset

0

Comments

Periodic with period 12;

a(n+6) = 1 - a(n).

Links

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

Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, -1, 1).

Example

.    a(n): 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0
.    runs: 0, 11,   000,     1, 00,   111,     0, 11,   000,     1, 00
. lengths: 1, 2,    3,       1, 2,    3,       1, 2,    3,       1, 2

Mathematica

LinearRecurrence[{1, 0, 0, 0, 0, -1, 1}, {0, 1, 1, 0, 0, 0, 1}, 108] (* Ray Chandler, Aug 27 2015 *)

Prog

(Haskell)
a241979 n = a241979_list !! n
a241979_list = cycle [0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1]

Crossrefs

Cf. A010882 (run lengths).

Sequence in context: A280910 A305816 A359820 * A200244 A261185 A093692

Adjacent sequences: A241976 A241977 A241978 * A241980 A241981 A241982

Keyword

nonn

Author

Reinhard Zumkeller, Aug 10 2014

Extensions

Extended by Ray Chandler, Aug 27 2015

Status

approved