login
Fixed point of the morphism 1 -> 121, 2 -> 122, starting from 1.
4

%I #27 Jan 23 2024 23:21:32

%S 1,121,121122121,121122121121122122121122121,

%T 121122121121122122121122121121122121121122122121122122121122121121122122121122121

%N Fixed point of the morphism 1 -> 121, 2 -> 122, starting from 1.

%C Previous name was: Ana sequence.

%C Let A(n), N(n) denote the number of 1's and the number of 2's in a(n). Then A(n) = (3^(k-1) + 1)/2, N(n) = (3^(k-1) - 1)/2. Hence lim_{n} A(n)/N(n) = 1.

%C In "Wonders of Numbers", Pickover considers a "fractal bar code" constructed from the Ana sequence. Start with a segment I of fixed length; at stage n, evenly subdivide I into as many non-overlapping closed intervals as there are letters in the n-th term of the Ana sequence; then shade the intervals corresponding to a's. It can be shown that a fractal set defined from this construction has fractal dimension = 1.

%C Fixed point of the morphism 1 -> 121, 2 -> 122, starting from a(1) = 1. See A060236. - _Robert G. Wilson v_, Mar 05 2005

%D C. Pickover, Wonders of Numbers, Chap. 69 "An A?", Oxford University Press, NY, 2001, p. 167-171.

%H Joseph L. Pe, <a href="http://numeratus.net/anagoldenfractal/anagoldenfractal.pdf">Ana's Golden Fractal</a>, Fractals, Vol. 11, No. 4 (2003) 309-313.

%H C. A. Pickover, "Wonders of Numbers, Adventures in Mathematics, Mind and Meaning," <a href="http://www.zentralblatt-math.org/zmath/en/search/?q=an:0983.00008&amp;format=complete">Zentralblatt review</a>

%F Begin with the letter "a". Generate next term by using the indefinite article as appropriate, e.g., "an a", then "an a, an n, an a" etc. Assign a=1, n=2.

%e a(2) = ana = 121, a(3) = ana ann ana = 121122121.

%t f[n_] := FromDigits[ Nest[ Flatten[ # /. {1 -> {1, 2, 1}, 2 -> {1, 2, 2}}] &, {1}, n]]; Table[ f[n], {n, 0, 4}] (* _Robert G. Wilson v_, Mar 05 2005 *)

%Y Cf. A060236.

%K nonn

%O 0,2

%A _Jason Earls_, Mar 17 2001

%E Additional comments from _Joseph L. Pe_, Mar 11 2002

%E More descriptive name from comment, _Joerg Arndt_, Jan 23 2024