%I A092606
%S A092606 0,2,1,0,0,0,2,1,0,2,1,0,2,1,0,0,0,2,1,0,0,0,2,1,0,0,0,2,1,0,2,1,0,2,1,
%T A092606 0,0,0,2,1,0,2,1,0,2,1,0,0,0,2,1,0,2,1,0,2,1,0,0,0,2,1,0,0,0,2,1,0,0,0,
%U A092606 2,1,0,2,1,0,2,1,0,0,0,2,1,0,0,0,2,1,0,0,0,2,1,0,2,1,0,2,1,0,0,0,2,1,0
%N A092606 Fixed point of the morphism 0 -> 021, 1 -> 0, 2 -> 0; starting with a(1)
= 0.
%C A092606 To construct the sequence : start from the Feigenbaum sequence A035263
= 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, ..., then change 0 -> 2,
1 and 1 -> 0 . - DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Apr 12
2004
%F A092606 a(n) = 0 for n in A003156; a(n) = 1 for n in A003157; a(n) = 2 for n
in A003158.
%t A092606 Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 2, 1}, 1 -> {0}, 2 -> {0}})]}],
{0}, 6] (from Robert G. Wilson v Mar 03 2005)
%Y A092606 Cf. A003156, A003157, A003158.
%Y A092606 Sequence in context: A025894 A051127 A070176 this_sequence A073253 A004198
A116402
%Y A092606 Adjacent sequences: A092603 A092604 A092605 this_sequence A092607 A092608
A092609
%K A092606 easy,nonn
%O A092606 1,2
%A A092606 DELEHAM Philippe (kolotoko(AT)wanadoo.fr), Apr 11 2004
|