The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A332380 a(n) is the X-coordinate of the n-th point of the Peano curve. Sequence A332381 gives Y-coordinates. 2
 0, 1, 1, 2, 2, 1, 1, 2, 2, 3, 3, 2, 2, 3, 3, 4, 4, 3, 3, 4, 4, 5, 5, 4, 4, 5, 5, 6, 6, 7, 7, 6, 6, 5, 5, 6, 6, 5, 5, 4, 4, 5, 5, 4, 4, 3, 3, 4, 4, 3, 3, 2, 2, 3, 3, 4, 4, 5, 5, 4, 4, 5, 5, 6, 6, 5, 5, 6, 6, 7, 7, 6, 6, 7, 7, 8, 8, 7, 7, 8, 8, 9, 9, 8, 8, 9, 9 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 COMMENTS This sequence is the real part of {f(n)} defined as: - f(0) = 0, - f(n+1) = f(n) + i^t(n)   where t(n) is the number of 1's and 7's minus the number of 3's and 5's   plus twice the number of 4's in the base 9 representation of n   and i denotes the imaginary unit. We can also build the curve by successively applying the following substitution to an initial vector (1, 0):             .--->.             ^    |             |    v        .--->/<---/--->.             |    ^             v    |             .--->. REFERENCES Benoit B. Mandelbrot, The Fractal Geometry of Nature, W. H. Freeman and Co., 1983, section 7, "Harnessing the Peano Monster Curves", page 62 description and plate 63 bottom right drawn with chamfered corners. LINKS Rémy Sigrist, Table of n, a(n) for n = 0..6561 Joerg Arndt, Plane-filling curves on all uniform grids, arXiv:1607.02433 [math.CO], 2016, 2018.  Curve R9-1 drawn in figure 4.1-O (top row forms, vertical mirror image). Donald E. Knuth, Selected Papers on Fun and Games, CSLI Lecture Notes Number 192, CSLI Publications, 2010, ISBN 978-1-57586-585-0, page 611 folding product DUUUDDDU drawn at 45 degrees in a labyrinth. Walter Wunderlich, Über Peano-Kurven, Elemente der Mathematik, volume 28, number 1, 1973, pages 1-10.  See section 4 serpentine type 010 101 010 as illustrated in figure 3, the coordinates here being diagonal steps across the unit squares there. FORMULA a(9^k) = 3^k for any k >= 0. PROG (PARI) { [R, U, L, D]=[0..3]; p = [R, U, R, D, L, D, R, U, R]; z=0; for (n=0, 86, print1 (real(z) ", "); z += I^vecsum(apply(d -> p[1+d], digits(n, #p)))) } CROSSREFS See A332246 for a similar sequence. Cf. A332381 (Y-coordinates). Sequence in context: A106180 A274369 A055091 * A014678 A332381 A164516 Adjacent sequences:  A332377 A332378 A332379 * A332381 A332382 A332383 KEYWORD nonn,look,base,changed AUTHOR Rémy Sigrist, Feb 10 2020 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 25 22:55 EDT 2020. Contains 337346 sequences. (Running on oeis4.)