cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A332247 a(n) is the Y-coordinate of the n-th point of the Minkowski sausage (or Minkowski curve). Sequence A332246 gives X-coordinates.

Original entry on oeis.org

0, 0, 1, 1, 0, -1, -1, 0, 0, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 4, 3, 3, 4, 4, 3, 3, 2, 2, 2, 1, 1, 0, -1, -1, -2, -2, -2, -3, -3, -4, -4, -3, -3, -4, -5, -5, -4, -4, -3, -3, -2, -2, -2, -1, -1, 0, 0, 1, 1, 0, -1, -1, 0, 0, 1, 1, 2, 2, 2, 3, 3, 4, 4, 3, 3, 4, 5
Offset: 0

Views

Author

Rémy Sigrist, Feb 08 2020

Keywords

Comments

This sequence is the imaginary 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 6's minus the number of 3's and 4's
in the base 8 representation of n
and i denotes the imaginary unit.

Crossrefs

Cf. A332246 (X-coordinates and additional comments).

Programs

  • PARI
    { dd = [0,1,0,-1,-1,0,1,0]; z=0; for (n=0, 77, print1 (imag(z)", "); z += I^vecsum(apply(d -> dd[1+d], digits(n, #dd)))) }

Formula

a(8^k-m) = -a(m) for any k >= 0 and m = 0..8^k.

A332249 a(n) is the X-coordinate of the n-th point of the quadratic Koch curve. Sequence A332250 gives Y-coordinates.

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 3, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 6, 6, 7, 7, 8, 8, 9, 9, 8, 8, 9, 9, 8, 8, 7, 7, 6, 6, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 15, 15, 16, 16, 17, 17, 18, 18, 19
Offset: 0

Views

Author

Rémy Sigrist, Feb 08 2020

Keywords

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 minus the number of 3's
in the base 5 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
.--->. .--->.

Crossrefs

See A332246 for a similar sequence.
Cf. A229217, A332250 (Y-coordinates).

Programs

  • PARI
    { k = [0, 1, 0, -1, 0]; z=0; for (n=0, 77, print1 (real(z) ", "); z += I^vecsum(apply(d -> k[1+d], digits(n, #k)))) }

Formula

a(5^k-m) + a(m) = 3^k for any k >= 0 and m = 0..5^k.

A332380 a(n) is the X-coordinate of the n-th point of the Peano curve. Sequence A332381 gives Y-coordinates.

Original entry on oeis.org

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
Offset: 0

Views

Author

Rémy Sigrist, Feb 10 2020

Keywords

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.

Crossrefs

See A332246 for a similar sequence.
Cf. A332381 (Y-coordinates).

Programs

  • 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)))) }

Formula

a(9^k) = 3^k for any k >= 0.
Showing 1-3 of 3 results.