A323258 a(n) is the X-coordinate of the n-th point of a variation on Wunderlich's serpentine type 010 101 010 curve (starting at the origin and occupying the first quadrant).
0, 1, 2, 2, 1, 0, 0, 1, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 1, 2, 2, 1, 0, 0, 1, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 4, 3, 3, 4, 5, 5, 4, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 7, 8, 8, 7, 6, 6, 7, 8, 8, 8, 8, 7, 7, 7, 6, 6, 6, 6, 7, 8, 8, 7, 6, 6, 7, 8, 8, 8, 8, 7, 7, 7
Offset: 1
Keywords
Links
- Rémy Sigrist, Table of n, a(n) for n = 1..6561
- Robert Dickau, Wunderlich Curves
- Rémy Sigrist, Illustration of initial terms
- Wolfram Demonstrations Project, Wunderlich Curves
- Walter Wunderlich, Über Peano-Kurven, Elemente der Mathematik, volume 28, number 1, 1973, pages 1-10.
- Index entries for sequences related to coordinates of 2D curves
Programs
-
PARI
s = [0, 1, 2, 2+I, 1+I, I, 2*I, 1+2*I, 2+2*I]; w = apply(z -> imag(z) + I*real(z), s); r = [0, 1, 0, 3, 2, 3, 0, 1, 0] a(n) = { my (d=if (n>1, Vecrev(digits(n-1, 9)), [0]), z=s[1+d[1]]); for (i=2, #d, my (c=(3^(i-1)-1)/2*(1+I)); z = 3^(i-1) * w[1+d[i]] + c + (z-c) * I^r[1+d[i]]; ); return (real(z)); }
Comments