|
|
REFERENCES
| M. S. El Naschie, Statistical geometry of a Cantor discretum and semiconductors, Computers Math. Applic., 29 (No, 12, 1995), 103-110.
C. J. Glasby, S. P. Glasby, F. Pleijel, (http://dx.doi.org/10.1098/rspb.2008.0418 Worms by number), Proc. Roy. Soc. B, Proc. Biol. Sci. 275 (1647) (2008) 2071-2076.
Kappraff, Blackmore and Adamson, Phyllotaxis as a dynamical system..., Chap. 17 of Jean and Barabe, eds., Symmetry in Plants, World Scientific, Studies in Math. Biology and Medicine, Vol. 4.
|
|
|
MATHEMATICA
| nxt[{a_, b_}]:=FromDigits[Join[IntegerDigits[b], IntegerDigits[a]]]; Transpose[NestList[{Last[#], nxt[#]}&, {1, 10}, 10]][[1]] (* From Harvey P. Dale, Oct 16 2011 *)
|
