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-4 of 4 results.

A287556 Start with 0 and repeatedly substitute 0->0132, 1->1320, 2->3201, 3->2013.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, May 31 2017

Keywords

Comments

This is the fixed point of the morphism 0->0132, 1->1320, 2->3201, 3->2013 starting with 0. Let t be the (nonperiodic) sequence of positions of 0, and likewise, u for 1, v for 2, and w for 3; then t(n)/n -> 4, u(n)/n -> 4, v(n)/n -> 4, w(n)/n -> 4. Also, t(n) + u(n) + v(n) + w(n) = 16*n - 6 for n >= 1.
In the following guide to related sequences, column 1 indexes fixed points on {0,1,2,3}, and column 2 indicates position sequences of 0, 1, 2, 3. Those sequences therefore comprise a 4-way splitting of the positive integers.
Fixed points of morphisms: Position sequences:
A053839: 0->0123, 1->1230, 2->2301, 3->3012 A287552-A287555
A287556: 0->0132, 1->1320, 2->3201, 3->2013 A287557-A287560
A287561: 0->0213, 1->2130, 2->1302, 3->3021 A287562-A287565
A287566: 0->0231, 1->2310, 2->3102, 3->1023 A287567-A287570
A287571: 0->0312, 1->3120, 2->1203, 3->2031 A287572-A287575
A287576: 0->0321, 1->3210, 2->2103, 3->1032 A287577-A287580

Examples

			First three iterations of the morphism:
0132
0132132020133201
0132132020133201132020133201013232010132132020132013320101321320
		

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0 -> {0, 1, 3, 2}, 1 -> {1, 3, 2, 0}, 2 -> {3, 2, 0, 1}, 3 -> {2, 0, 1, 3}}] &, {0}, 9]; (* A287556 *)
    Flatten[Position[s, 0]]; (* A287557 *)
    Flatten[Position[s, 1]]; (* A287558 *)
    Flatten[Position[s, 2]]; (* A287559 *)
    Flatten[Position[s, 3]]; (* A287560 *)

A287558 Positions of 1 in A287556.

Original entry on oeis.org

2, 5, 11, 16, 17, 23, 28, 30, 36, 38, 41, 47, 51, 56, 58, 61, 65, 71, 76, 78, 84, 86, 89, 95, 99, 104, 106, 109, 114, 117, 123, 128, 131, 136, 138, 141, 146, 149, 155, 160, 161, 167, 172, 174, 180, 182, 185, 191, 196, 198, 201, 207, 211, 216, 218, 221, 226
Offset: 1

Views

Author

Clark Kimberling, May 31 2017

Keywords

Comments

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

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0 -> {0, 1, 3, 2}, 1 -> {1, 3, 2, 0}, 2 -> {3, 2, 0, 1}, 3 -> {2, 0, 1, 3}}] &, {0}, 9];   (* A287556 *)
    Flatten[Position[s, 0]]; (* A287557 *)
    Flatten[Position[s, 1]]; (* A287558 *)
    Flatten[Position[s, 2]]; (* A287559 *)
    Flatten[Position[s, 3]]; (* A287560 *)

A287559 Positions of 2 in A287556.

Original entry on oeis.org

4, 7, 9, 14, 19, 21, 26, 32, 34, 40, 43, 45, 49, 54, 60, 63, 67, 69, 74, 80, 82, 88, 91, 93, 97, 102, 108, 111, 116, 119, 121, 126, 129, 134, 140, 143, 148, 151, 153, 158, 163, 165, 170, 176, 178, 184, 187, 189, 194, 200, 203, 205, 209, 214, 220, 223, 228
Offset: 1

Views

Author

Clark Kimberling, May 31 2017

Keywords

Comments

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

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0 -> {0, 1, 3, 2}, 1 -> {1, 3, 2, 0}, 2 -> {3, 2, 0, 1}, 3 -> {2, 0, 1, 3}}] &, {0}, 9];   (* A287556 *)
    Flatten[Position[s, 0]]; (* A287557 *)
    Flatten[Position[s, 1]]; (* A287558 *)
    Flatten[Position[s, 2]]; (* A287559 *)
    Flatten[Position[s, 3]]; (* A287560 *)

A287560 Positions of 3 in A287556.

Original entry on oeis.org

3, 6, 12, 13, 18, 24, 25, 31, 33, 39, 42, 48, 52, 53, 59, 62, 66, 72, 73, 79, 81, 87, 90, 96, 100, 101, 107, 110, 115, 118, 124, 125, 132, 133, 139, 142, 147, 150, 156, 157, 162, 168, 169, 175, 177, 183, 186, 192, 193, 199, 202, 208, 212, 213, 219, 222, 227
Offset: 1

Views

Author

Clark Kimberling, May 31 2017

Keywords

Comments

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

Crossrefs

Programs

  • Mathematica
    s = Nest[Flatten[# /. {0 -> {0, 1, 3, 2}, 1 -> {1, 3, 2, 0}, 2 -> {3, 2, 0, 1}, 3 -> {2, 0, 1, 3}}] &, {0}, 9];   (* A287556 *)
    Flatten[Position[s, 0]]; (* A287557 *)
    Flatten[Position[s, 1]]; (* A287558 *)
    Flatten[Position[s, 2]]; (* A287559 *)
    Flatten[Position[s, 3]]; (* A287560 *)
Showing 1-4 of 4 results.