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

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

Offset

1

Links

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

Maple

with(ListTools);
psi:=proc(S)
Flatten(subs( {0=[0, 0, 0, 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, 1}, 1 -> {1, 1, 1, 0}}, {0}, 4] // Last (* Jean-François Alcover, Jan 21 2018 *)

Crossrefs

Suggested by A283317.

Sequence in context: A144602 A275855 A268310 * A284508 A347519 A160351

Adjacent sequences: A283313 A283314 A283315 * A283317 A283318 A283319

Keyword

nonn

Author

N. J. A. Sloane, Mar 08 2017

Status

approved