OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..300
MAPLE
S:= proc(n) option remember;
`if`(n<2, [2-n], [S(n-1)[], S(n-2)[]])
end:
a:= proc(n) local k;
for k while nops(S(k))<n do od;
parse(cat(S(k)[1..n][]))
end;
seq(a(n), n=1..30); # Alois P. Heinz, Jul 19 2012
MATHEMATICA
S = SubstitutionSystem[{1 -> {1, 2}, 2 -> {1}}, {1}, 20];
FromDigits[Take[#[[1]], #[[2]]]]& /@ Transpose[{S, Range[Length[S]]}] (* Jean-François Alcover, Nov 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 12 2012
STATUS
approved