%I #7 Dec 29 2023 12:45:01
%S 0,1,0,1,2,1,0,1,0,1,2,1,2,3,2,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,2,1,
%T 2,1,2,3,2,3,4,2,2,3,2,1,2,1,2,3,2,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,
%U 2,1,2,1,0,1,0,1,2,1,0,1,0,1,2,1,2,3,2,1,2,1,2,3,2,3,4,2,2,3,2,1,2,1,2,3,2
%N Fixed point of the morphism a -> {a, a + 1, Ceiling(Log(a + 1))}, beginning with 0.
%C First occurrence of k: 1, 2, 5, 14, 41, 122, 365, 1094, 3281, 9842, 29525, 88574, 265721, 797162, 2391485, ...,.
%t Nest[Flatten[ #1 /. a_Integer -> {a, a + 1, Ceiling[Log[10, a + 1]]}] &, {0}, 5]
%K nonn
%O 0,5
%A _Robert G. Wilson v_, Aug 02 2006
|