login
Fixed point of the morphism 1 -> 121, 2 -> 12, starting from 1.
0

%I #21 Jan 23 2024 08:42:00

%S 1,121,12112121,121121211211212112121,

%T 1211212112112121121211211212112112121121211211212112121,

%U 121121211211212112121121121211211212112121121121211212112112121121121211212112112121121121211212112112121121211211212112112121121211211212112121

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

%C Previous name was: In the Ana sequence, use (the ungrammatical) "a n" instead of "an n" in describing n's. That is, begin with the letter "a". Generate the next term by using the indefinite article as appropriate, but using "a n" instead of "an n". E.g., "an a", then "an a, a n, an a" etc. Assign a=1, n=2.

%C For proofs of the following assertions, see the link to the paper "Ana's Golden Fractal". Let A(n), N(n) denote the number of 1's and the number of 2's in a(n). Then for n > 1, A(n), N(n) are consecutive Fibonacci numbers: A(n) = F(2n-1), N(n) = F(2n-2), where F(k) denotes the k-th Fibonacci number. Hence lim_{n} A(n)/N(n) = phi, the golden ratio.

%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 using the golden Ana sequence has fractal dimension = 1.

%C Fixed point of the morphism 1 -> 121, 2 -> 12, starting from a(1) = 1. See A003842.

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

%H Joseph L. Pe, <a href="http://numeratus.net/anagoldenfractal/anagoldenfractal.html">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>

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

%Y Cf. A060032.

%K nonn

%O 1,2

%A _Joseph L. Pe_, Mar 11 2002

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