A317198 - OEIS

%I #11 Nov 09 2023 11:39:23

%S 1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,-1,1,0,1,1,

%T 0,1,-1,1,0,1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,0,1,-1,1,0,1,

%U 1,0,1,-1,1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,0,1,-1,1,0,1,1,0,1,-1,1,0,1,0,1,-1,1,0,1,1,0,1

%N Yet another version of the ternary tribonacci word: fixed point of the morphism 1 -> 1,0; 0 -> 1,-1; -1 -> 1; starting from a(0) = 1.

%H Paolo Xausa, <a href="/A317198/b317198.txt">Table of n, a(n) for n = 0..10000</a>

%t Nest[Flatten[ReplaceAll[#,{-1->1,0->{1,-1},1->{1,0}}]]&,{0},10] (* _Paolo Xausa_, Nov 09 2023 *)

%Y Other versions: A080843 (the main version), A092782.

%K sign

%O 0

%A _N. J. A. Sloane_, Aug 05 2018