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-10 of 18 results. Next

A287386 Positions of 0 in A287385.

Original entry on oeis.org

1, 6, 7, 10, 15, 16, 19, 22, 27, 28, 31, 36, 37, 42, 43, 46, 51, 52, 55, 60, 61, 64, 67, 72, 73, 78, 79, 82, 87, 88, 91, 94, 99, 100, 105, 106, 109, 112, 117, 118, 123, 124, 127, 132, 133, 136, 141, 142, 145, 150, 151, 154, 157, 162, 163, 168, 169, 172, 177
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

a(n) - a(n-1) is in {1,3,5} for n >= 1; also, 3n - a(n) is in {0,2} for n >= 1. The first 20 numbers 3n - a(n) are 2, 0, 2, 2, 0, 2, 2, 2, 0, 2, 2, 0, 2, 0, 2, 2, 0, 2, 2, 0, with 0 in positions given by A287387.

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{0, 2, 1}}] &, {0}, 9]; (*A287385*)
    Flatten[Position[s, 0]]; (*A287386*)
    Flatten[Position[s, 1]]; (*A287387*)
    Flatten[Position[s, 2]]; (*A287388*)

A287387 Positions of 1 in A287385.

Original entry on oeis.org

2, 5, 9, 12, 14, 17, 20, 24, 26, 29, 33, 35, 39, 41, 44, 47, 50, 54, 56, 59, 63, 65, 69, 71, 75, 77, 80, 83, 86, 90, 92, 96, 98, 102, 104, 107, 110, 114, 116, 120, 122, 125, 128, 131, 135, 137, 140, 144, 147, 149, 152, 155, 159, 161, 164, 167, 171, 174, 176
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

a(n) - a(n-1) is in {2,3,4} for n >= 1; also, 3n - a(n) is in {0,1} for n >= 1. The first 20 numbers 3n - a(n) are 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, with 0 in positions given by A287388.

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{0, 2, 1}}] &, {0}, 9]; (*A287385*)
    Flatten[Position[s, 0]]; (*A287386*)
    Flatten[Position[s, 1]]; (*A287387*)
    Flatten[Position[s, 2]]; (*A287388*)

A287388 Positions of 2 in A287385.

Original entry on oeis.org

3, 4, 8, 11, 13, 18, 21, 23, 25, 30, 32, 34, 38, 40, 45, 48, 49, 53, 57, 58, 62, 66, 68, 70, 74, 76, 81, 84, 85, 89, 93, 95, 97, 101, 103, 108, 111, 113, 115, 119, 121, 126, 129, 130, 134, 138, 139, 143, 146, 148, 153, 156, 158, 160, 165, 166, 170, 173, 175
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

a(n) - a(n-1) is in {1,2,3,4,5} for n >= 1; also, 3n - a(n) is in {0,1,2} for n >= 1. The first 20 numbers 3n - a(n) are 0, 2, 1, 1, 2, 0, 0, 1, 2, 0, 1, 2, 1, 2, 0, 0, 2, 1, 0, 2, with 0 in positions given by A287386.

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{0, 2, 1}}] &, {0}, 9]; (*A287385*)
    Flatten[Position[s, 0]]; (*A287386*)
    Flatten[Position[s, 1]]; (*A287387*)
    Flatten[Position[s, 2]]; (*A287388*)

A307672 The right half of a bi-infinite word invariant under the balanced morphism, {0->501, 1->210, 2->123, 3->432, 4->345, 5->054}, starting from axiom a(0)=0.

Original entry on oeis.org

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

Views

Author

Bradley Klee and Peter Munn, Apr 20 2019

Keywords

Comments

The adjective "balanced" indicates that the fixed point a(0)=0 descends through iteration along a central dividing line, which bisects the ternary family tree into left and right halves, equal by node cardinality (see examples). From the original Gosper and Ziegler-Hunts reference (see links), a(k) = d(k) mod 6. The function d(k) draws left and right halves of the Sierpiński Arrowhead curve (see links). Alphanumeric transformation {0->a, 2->b, 4->c, 3->A, 5->B, 1->C} obtains d(k) in the form of lettered sets. By design, letters {a,b,c} occur only on even indices, while letters {A,B,C} occur only on odd indices. According to the principal eigenvector of the substitution system, occurrence tallies should asymptotically approach a uniform distribution over the six numbers or letters.
From Peter Munn, May 28 2019: (Start)
The sequence maps to half of an infinite Sierpinski arrowhead curve by mapping the values 0..5 to six unit vectors spaced at equal angles (Pi/3) in counterclockwise (or clockwise) order, then placing the vector image of each sequence term head to tail. Curve edges indexed 0..121 form the upper half of the curve in Figure 5 of the Gosper & Ziegler-Hunts reference (see links). The figure has the vector image of 0 pointing upwards, the red-colored segment runs from index -40 to +40 and the blue-colored segment from 41 to 121.
The arrowhead curve (both halves and continued to infinity) will align with an infinite Sierpinski gasket so that each of its edges is contained in the boundary of either the plane sector occupied by the gasket or a triangular region of the gasket's complement. Every length 3 segment of these boundaries contains exactly one edge of the arrowhead curve. See the link for the aligned curves.
For a given triangular boundary (or a given edge of the gasket sector boundary) the indices of the arrowhead edges it contains differ by multiples of 4. The edges in the gasket sector boundary are listed (absolute value of index) in A191108. Otherwise, edge n seems to be contained in a triangular boundary of side 2^(A307744(n)-1).
The arrowhead curve divides the plane into two regions. Denote the region that is wholly within the sector occupied by the gasket as the inside of the arrowhead. The curve's even-indexed edges are in triangular boundaries that lie inside the arrowhead, and the odd-indexed edges are not.
When the term-to-vector map described above is applied to the sequence bisections, we get related curves. The even-indexed curve reproduces the boundaries of all triangular regions of the gasket's complement, of unit side and greater, that lie inside the arrowhead; the odd-indexed curve reproduces the boundaries of the equivalent regions outside the arrowhead plus the gasket sector boundary. See the link for the aligned curves.
Recall that every length 3 boundary segment contains exactly one arrowhead edge. In the curve drawn by a(0), a(2), a(4), ... the image of a(6n) co-incides with the image of a(2n) in the arrowhead curve, and the images of a(6n-2), a(6n) and (6n+2) form a length 3 boundary segment. Similarly, in the curve drawn by a(1), a(3), a(5), ... the image of a(6n+3) co-incides with the image of a(2n+1) in the arrowhead curve, and the images of a(6n+1), a(6n+3) and a(6n+5) form a length 3 boundary segment.
One bisection produces vectors that draw triangular boundaries clockwise, the other counterclockwise. This must be so, because (1) the full sequence alternates odd and even, (2) opposite vectors are images of numbers with opposite parity, and (3) the gasket complement's triangular regions have the same orientation.
(End)

Examples

			The full ternary tree starts:
      0
     501
  054501210
		

Crossrefs

Lists that identify significant subsets of the Sierpinski arrowhead edges: A019989, A019990, A019991, A191108.
Cf. A156595 (draws the Sierpinski gasket).

Programs

  • Mathematica
    Arrowhead = {0->{5, 0, 1}, 1->{2, 1, 0}, 2->{1, 2, 3}, 3->{4, 3, 2}, 4->{3, 4, 5}, 5->{0, 5, 4}};
    aR[n_]:=Nest[Part[Flatten[#/.Arrowhead], 2;;-1]&,{0},n];aR[7]
    (* Second program: *)
    S = SubstitutionSystem[{0 -> {5, 0, 1}, 1 -> {2, 1, 0}, 2 -> {1, 2, 3}, 3 -> {4, 3, 2}, 4 -> {3, 4, 5}, 5 -> {0, 5, 4}}, {0}, 5][[-1]]; S[[Ceiling[ Length[S]/2];;]] (* Jean-François Alcover, May 08 2019 *)

A287397 Start with 0 and repeatedly substitute 0->012, 1->210, 2->102.

Original entry on oeis.org

0, 1, 2, 2, 1, 0, 1, 0, 2, 1, 0, 2, 2, 1, 0, 0, 1, 2, 2, 1, 0, 0, 1, 2, 1, 0, 2, 2, 1, 0, 0, 1, 2, 1, 0, 2, 1, 0, 2, 2, 1, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 1, 0, 2, 1, 0, 2, 2, 1, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 1, 0, 2, 2, 1, 0, 0, 1, 2, 1, 0, 2, 1, 0, 2, 2, 1
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->210, 2->102 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012210021, 012210021021210012012021210.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{1, 0, 2}}] &, {0}, 9]; (*A287397*)
    Flatten[Position[s, 0]]; (*A287398*)
    Flatten[Position[s, 1]]; (*A287399*)
    Flatten[Position[s, 2]]; (*A287400*)

A287401 Start with 0 and repeatedly substitute 0->012, 1->210, 2->120.

Original entry on oeis.org

0, 1, 2, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 1, 0, 0, 1, 2, 2, 1, 0, 1, 2, 0, 0, 1, 2, 2, 1, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 2, 1, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 1, 0, 0, 1, 2, 2, 1, 0, 1, 2, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 1
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->210, 2->120 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012210102, 012210102102210012210012102.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{1, 2, 0}}] &, {0}, 9]; (*A287401*)
    Flatten[Position[s, 0]]; (*A189728*)
    Flatten[Position[s, 1]]; (*A287403*)
    Flatten[Position[s, 2]]; (*A287404*)

Formula

a(n) = (2*a(m) + (n-1)*(-1)^a(m)) mod 3, where m = 1 + floor((n-1)/3). - Max Alekseyev, Jul 11 2022

A287407 Start with 0 and repeatedly substitute 0->012, 1->210, 2->201.

Original entry on oeis.org

0, 1, 2, 2, 1, 0, 2, 0, 1, 2, 0, 1, 2, 1, 0, 0, 1, 2, 2, 0, 1, 0, 1, 2, 2, 1, 0, 2, 0, 1, 0, 1, 2, 2, 1, 0, 2, 0, 1, 2, 1, 0, 0, 1, 2, 0, 1, 2, 2, 1, 0, 2, 0, 1, 2, 0, 1, 0, 1, 2, 2, 1, 0, 0, 1, 2, 2, 1, 0, 2, 0, 1, 2, 0, 1, 2, 1, 0, 0, 1, 2, 2, 0, 1, 0, 1
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->210, 2->201 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012210201, 012210201201210012201012210.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 1, 0}, 2->{2, 0, 1}}] &, {0}, 9]; (*A287407*)
    Flatten[Position[s, 0]]; (*A287408*)
    Flatten[Position[s, 1]]; (*A287409*)
    Flatten[Position[s, 2]]; (*A287410*)
    SubstitutionSystem[{0->{0,1,2},1->{2,1,0},2->{2,0,1}},0,{5}][[1]] (* Harvey P. Dale, Aug 03 2023 *)

A287411 Start with 0 and repeatedly substitute 0->012, 1->120, 2->021.

Original entry on oeis.org

0, 1, 2, 1, 2, 0, 0, 2, 1, 1, 2, 0, 0, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 1, 1, 2, 0, 1, 2, 0, 0, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 1, 1, 2, 0, 0, 1, 2, 1, 2, 0, 0, 2, 1, 0, 1, 2, 1, 2, 0, 0, 2, 1, 0, 1, 2, 0, 2, 1, 1, 2, 0, 1, 2, 0, 0, 2, 1, 0, 1, 2, 1, 2, 0, 0, 2
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->120, 2->021 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012120021, 012120021120021012012021120.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{1, 2, 0}, 2->{0, 2, 1}}] &, {0}, 9]; (*A287411*)
    Flatten[Position[s, 0]]; (*A287412*)
    Flatten[Position[s, 1]]; (*A287413*)
    Flatten[Position[s, 2]]; (*A287414*)

A287418 Start with 0 and repeatedly substitute 0->012, 1->120, 2->102.

Original entry on oeis.org

0, 1, 2, 1, 2, 0, 1, 0, 2, 1, 2, 0, 1, 0, 2, 0, 1, 2, 1, 2, 0, 0, 1, 2, 1, 0, 2, 1, 2, 0, 1, 0, 2, 0, 1, 2, 1, 2, 0, 0, 1, 2, 1, 0, 2, 0, 1, 2, 1, 2, 0, 1, 0, 2, 1, 2, 0, 1, 0, 2, 0, 1, 2, 0, 1, 2, 1, 2, 0, 1, 0, 2, 1, 2, 0, 0, 1, 2, 1, 0, 2, 1, 2, 0, 1, 0
Offset: 1

Views

Author

Clark Kimberling, May 25 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->120, 2->102 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012120102, 012120102120102012120012102.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{1, 2, 0}, 2->{1, 0, 2}}] &, {0}, 9]; (*A287418*)
    Flatten[Position[s, 0]]; (*A287419*)
    Flatten[Position[s, 1]]; (*A287420*)
    Flatten[Position[s, 2]]; (*A287421*)
    SubstitutionSystem[{0->{0,1,2},1->{1,2,0},2->{1,0,2}},{0},{5}][[1]] (* Harvey P. Dale, Oct 09 2023 *)

A287443 Start with 0 and repeatedly substitute 0->012, 1->201, 2->021.

Original entry on oeis.org

0, 1, 2, 2, 0, 1, 0, 2, 1, 0, 2, 1, 0, 1, 2, 2, 0, 1, 0, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 2, 2, 0, 1, 0, 2, 1, 0, 2, 1, 0, 1, 2, 2, 0, 1, 0, 1, 2, 2, 0, 1, 0, 2, 1, 0, 1, 2, 0, 2, 1, 2, 0, 1, 0, 2, 1, 0, 1, 2, 2, 0, 1, 0, 1, 2, 2, 0
Offset: 1

Views

Author

Clark Kimberling, May 26 2017

Keywords

Comments

This is the fixed point of the morphism 0->012, 1->201, 2->021 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n -> 3, v(n)/n -> 3, w(n)/n -> 3.
See A287385 for a guide to related sequences.

Examples

			First three iterations of the morphism:  012, 012201021, 012201021021012201012021201.
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0->{0, 1, 2}, 1->{2, 0, 1}, 2->{0, 2, 1}}] &, {0}, 9]; (*A287443*)
    Flatten[Position[s, 0]]; (*A287444*)
    Flatten[Position[s, 1]]; (*A287445*)
    Flatten[Position[s, 2]]; (*A287446*)
Showing 1-10 of 18 results. Next