A189702 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A189702

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

0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0 (list; graph; refs; listen; history; text; internal format)

	OFFSET	`1`
	LINKS	`Table of n, a(n) for n=1..120.`
	EXAMPLE	`0->011->0110101->01110101001110011->`
	MATHEMATICA	`t = Nest[Flatten[# /. {0->{0, 1, 1}, 1->{1, 0}}] &, {0}, 6] (A189702)` `f[n_] := t[[n]]` `Flatten[Position[t, 0]] (A189703)` `Flatten[Position[t, 1]] (A189704)` `s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;` `Table[s[n], {n, 1, 120}] (A189705)`
	CROSSREFS	`Cf. A189703, A189704, A189705.` `Sequence in context: A285080 A167392 A190201 * A168395 A278718 A130854` `Adjacent sequences: A189699 A189700 A189701 * A189703 A189704 A189705`
	KEYWORD	`nonn`
	AUTHOR	`Clark Kimberling, Apr 25 2011`
	STATUS	`approved`

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:08 EDT 2023. Contains 361596 sequences. (Running on oeis4.)