A068490 Fixed point of the morphism 1 -> 121, 2 -> 12, starting from 1.
1, 121, 12112121, 121121211211212112121, 1211212112112121121211211212112112121121211211212112121, 121121211211212112121121121211211212112121121121211212112112121121121211212112112121121121211212112112121121211211212112112121121211211212112121
Offset: 1
Keywords
References
- C. Pickover, Wonders of Numbers, Chap. 69 "An A?", Oxford University Press, NY, 2001, pp. 167-171.
Links
- Joseph L. Pe, Ana's Golden Fractal, Fractals, Vol. 11, No. 4 (2003) 309-313.
- C. A. Pickover, "Wonders of Numbers, Adventures in Mathematics, Mind and Meaning," Zentralblatt review
Crossrefs
Cf. A060032.
Programs
-
Mathematica
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 *)
Extensions
More concise name from comment, Joerg Arndt, Jan 23 2024
Comments