cp's OEIS Frontend

A214317 a(n) = length-n prefix of the Fibonacci word A003842.

%I A214317 #18 Nov 07 2020 09:41:27
%S A214317 1,12,121,1211,12112,121121,1211212,12112121,121121211,1211212112,
%T A214317 12112121121,121121211211,1211212112112,12112121121121,
%U A214317 121121211211212,1211212112112121,12112121121121211,121121211211212112,1211212112112121121,12112121121121211212
%N A214317 a(n) = length-n prefix of the Fibonacci word A003842.
%H A214317 Alois P. Heinz, <a href="/A214317/b214317.txt">Table of n, a(n) for n = 1..300</a>
%p A214317 S:= proc(n) option remember;
%p A214317       `if`(n<2, [2-n], [S(n-1)[], S(n-2)[]])
%p A214317     end:
%p A214317 a:= proc(n) local k;
%p A214317       for k while nops(S(k))<n do od;
%p A214317       parse(cat(S(k)[1..n][]))
%p A214317     end;
%p A214317 seq(a(n), n=1..30);  # _Alois P. Heinz_, Jul 19 2012
%t A214317 S = SubstitutionSystem[{1 -> {1, 2}, 2 -> {1}}, {1}, 20];
%t A214317 FromDigits[Take[#[[1]], #[[2]]]]& /@ Transpose[{S, Range[Length[S]]}] (* _Jean-François Alcover_, Nov 07 2020 *)
%Y A214317 Cf. A003842, A214318.
%K A214317 nonn
%O A214317 1,2
%A A214317 _N. J. A. Sloane_, Jul 12 2012