login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A106147 A Levy dragon -Heighway's dragon two state 4-symbol substitution : q=1 state Levy dragon : q=0 state Heighway's dragon: Characteristic Polynomial:x^4-4*x^3+6*x^2-4*x. 0
1, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, 4, 3, 3, 2, 3, 2, 2, 1, 3, 2, 2, 1, 2, 1, 1, 4, 4, 3, 3, 2, 3, 2, 2, 1, 3, 2, 2, 1, 2, 1, 1, 4, 3, 2, 2, 1, 2, 1, 1, 4, 2, 1, 1, 4, 1, 4, 4, 3, 4, 3, 3, 2, 3, 2, 2, 1, 3, 2, 2, 1, 2, 1, 1, 4, 3, 2, 2, 1, 2, 1, 1, 4, 2, 1, 1, 4, 1, 4, 4, 3, 3, 2, 2, 1, 2, 1, 1, 4, 2 (list; graph; refs; listen; history; internal format)
OFFSET

0,2

COMMENTS

This result shows the transform ordering is very important. This concept was inspired by the Riddle IFS that gives the Twin dragon, Levy's dragon and Heighway's dragon by rotation of one of the two transforms.

REFERENCES

F. M. Dekking, "Recurrent Sets", Advances in Mathematics, vol. 44, no.1, April 1982, page 85, section 4.1

FORMULA

1->{2, 1}, 2->q*{3, 2}+(1-q}*{2, 3}, 3->{4, 3}, 4->q*{1, 4}+(1-q)*{4, 1}

MATHEMATICA

q=1 s[1] = {2, 1}; s[2] = q*{3, 2} + (1 - q)*{2, 3}; s[3] = {4, 3}; s[4] = q*{1, 4} + (1 - q)*{4, 1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[8]

CROSSREFS

Sequence in context: A073261 A020805 A200587 * A202393 A073321 A055620

Adjacent sequences:  A106144 A106145 A106146 * A106148 A106149 A106150

KEYWORD

nonn,uned

AUTHOR

Roger Bagula (rlbagulatftn(AT)yahoo.com), May 07 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 22:09 EST 2012. Contains 205669 sequences.