A189624 - OEIS

A189624

Fixed point of the morphism 0->001, 1->10.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

LINKS

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

EXAMPLE

0->001->00100110->00100110->001001100010011010001->

MATHEMATICA

t = Nest[Flatten[# /. {0->{0, 0, 1}, 1->{1, 0}}] &, {0}, 5] (*A189624*)

f[n_] := t[[n]]

Flatten[Position[t, 0]] (*A189625*)

Flatten[Position[t, 1]] (*A189626*)

s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;