A283317 Image of 0 under repeated applications of the morphism 0 -> 0,0,0,0,1, 1 -> 1,1,1,1,0.

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

Offset

1

Links

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

André Bernardino, Rui Pacheco, and Manuel Silva, Coloring factors of substitutive infinite words, Discrete Mathematics 340.3 (2017): 443-451. Also arXiv:1605.09343 [math.CO], 2016. See Section 4.

J. Justin and G. Pirillo, Two combinatorial properties of partitions of the free semigroup into finitely many parts, Discrete Mathematics, 52, 2-3, (1984), pp. 299-303. See p. 302.

Index entries for sequences that are fixed points of mappings

Maple

with(ListTools);
psi:=proc(S)
Flatten(subs( {0=[0, 0, 0, 0, 1], 1=[1, 1, 1, 1, 0]}, S));
end;
S:=[0];
for n from 1 to 6 do S:=psi(S): od:
S;

Mathematica

SubstitutionSystem[{0 -> {0, 0, 0, 0, 1}, 1 -> {1, 1, 1, 1, 0}}, {0}, 3] // Last (* Jean-François Alcover, Jan 21 2018 *)

Crossrefs

Cf. A283316.

Sequence in context: A221152 A302048 A093957 * A188041 A261990 A144601

Adjacent sequences: A283314 A283315 A283316 * A283318 A283319 A283320

Keyword

nonn

Author

N. J. A. Sloane, Mar 08 2017

Status

approved