%I #31 Oct 16 2024 21:20:45
%S 1,2,1,2,3,2,1,2,1,2,3,2,1,2,3,4,3,2,1,2,3,2,1,2,1,2,3,2,1,2,1,2,3,2,
%T 1,2,3,4,3,2,1,2,3,2,1,2,1,2,3,2,1,2,3,4,3,2,1,2,3,4,5,4,3,2,1,2,3,4,
%U 3,2,1,2,3,2,1,2,1,2,3,2,1,2,3,4,3,2,1
%N Trajectory of 1 under the morphism 1 -> 12, 2 -> 1232, 3 -> 123432, 4 -> 12345432, etc.
%C It appears that records occur at A000111. [This is false. - _Rémy Sigrist_, Nov 15 2018]
%C The n-th local maximum equals a(n) + 1. - _Rémy Sigrist_, Nov 13 2018
%C Records at {1, 2, 5, 16, 61, 258, 1161, 5440, 26233, 129282, 648141, 3294864, ...}, which seems to match A104858. - _Michael De Vlieger_, Nov 13 2018
%H Rémy Sigrist, <a href="/A229830/b229830.txt">Table of n, a(n) for n = 1..8558</a> (7 iterations)
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%t With[{n = 5}, Take[#, LengthWhile[#, # <= n &] + 1] &@ Nest[Flatten[# /. Array[Last@ # - 1 -> Most[#~Join~Reverse@ Most@ #] &@ Range@ # &, Max@ #, 2]] &, {1}, n]] (* _Michael De Vlieger_, Nov 13 2018 *)
%o (PARI) my(a = vector(87), n=0); a[1]=1; for (p=1, oo, my(h=1+a[p]); for (v=1, h, a[n++]=v; print1 (v ", "); if (n==#a, break (2))); forstep (v=h-1, 2, -1, a[n++]=v; print1 (v ", "); if (n==#a, break (2)))) \\ _Rémy Sigrist_, Nov 13 2018
%Y Cf. A007001, A000111.
%K nonn
%O 1,2
%A _Franklin T. Adams-Watters_, Dec 08 2013
%E Data corrected by _Rémy Sigrist_, Nov 13 2018