# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a284912 Showing 1-1 of 1 %I A284912 #13 Oct 05 2020 09:36:39 %S A284912 0,1,1,0,1,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,1,0,0,1,1,0,1,0,0,1,0,1,1,0, %T A284912 1,0,1,0,1,0,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,0,1,0,0,1,1,0,1,0,0,1,0,1, %U A284912 1,0,1,0,1,0,1,0,0,1,1,0,1,0,0,1,0,1 %N A284912 Fixed point of the morphism 0 -> 01, 1 -> 1010. %C A284912 This is a 3-automatic sequence. See Allouche et al. link. - _Michel Dekking_, Oct 05 2020 %H A284912 Clark Kimberling, Table of n, a(n) for n = 1..10000 %H A284912 J.-P. Allouche, F. M. Dekking, and M. Queffélec, Hidden automatic sequences, arXiv:2010.00920 [math.NT], 2020. %H A284912 Index entries for sequences that are fixed points of mappings %e A284912 0 -> 01-> 011010 -> 011010101001101001 -> %t A284912 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1, 0}}] &, {0}, 6] (* A284912 *) %t A284912 Flatten[Position[s, 0]] (* A284913 *) %t A284912 Flatten[Position[s, 1]] (* A284914 *) %Y A284912 Cf. A284913, A284914. %K A284912 nonn,easy %O A284912 1 %A A284912 _Clark Kimberling_, Apr 17 2017 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE