%I #10 Oct 11 2019 16:30:00
%S 0,0,0,0,1,0,2,0,3,0,0,0,4,0,5,0,0,0,0,1,6,0,7,0,0,0,0,1,0,2,8,0,9,0,
%T 10,0,11,0,0,0,0,1,0,2,0,3,12,0,13,0,0,0,0,1,0,2,0,3,0,0,0,4,14,0,15,
%U 0,16,0,17,0,18,0,0,0,19,0,0,0,0,1,0,2,0,3,0,0,0,4,0,5,20,0,21,0,0,0,0,1
%N a(0) = 0. s(0) = {0}. s(n+1) = s(n) U s(a(n)) U {n}, where U represents a concatenation of finite sequences. The sequence {a(n)} is the limit of s(m) as m -> infinity.
%C Number of terms in s(n) is A114513(n).
%e s(1) = {0,0,0}, s(4) = {0,0,0,0,1,0,2,0,3}. s(5) = s(4) U s(a(4)) U {4} =
%e {0,0,0,0,1,0,2,0,3} U {0,0,0} U {4} = {0,0,0,0,1,0,2,0,3,0,0,0,4}, which are the first 13 terms of {a(n)}.
%t s[0] = {0}; s[n_] := s[n] = Flatten[{s[n - 1], s[s[n - 1][[n]]], {n - 1}}]; s[23] (* _Ray Chandler_, Dec 05 2005 *)
%Y Cf. A114510, A114513.
%K easy,nonn
%O 0,7
%A _Leroy Quet_, Dec 03 2005
%E Extended by _Ray Chandler_, Dec 05 2005
|