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

A112658 Dean's Word: Omega 2,1: the trajectory of 0 -> 01, 1 -> 21, 2 -> 03, 3 -> 23.

Original entry on oeis.org

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

Views

Author

Jeremy Gardiner, Dec 27 2005

Keywords

Comments

Even-indexed terms of this sequence are the sequence A099545. - Alexandre Wajnberg, Jan 02 2006
Fractal sequence: odd terms are 0, 2, 0, 2,...; the subsets formed with the terms of index (2^i)n, with i>0, are identical: a(2n)=a(4n)=a(8n)=a(16n)=... - Alexandre Wajnberg, Jan 02 2006

Examples

			The first few iterations of the morphism, starting with 0:
Start: 0
Rules:
  0 --> 01
  1 --> 21
  2 --> 03
  3 --> 23
-------------
0:   (#=1)
  0
1:   (#=2)
  01
2:   (#=4)
  0121
3:   (#=8)
  01210321
4:   (#=16)
  0121032101230321
5:   (#=32)
  01210321012303210121032301230321
6:   (#=64)
  0121032101230321012103230123032101210321012303230121032301230321
/* _Joerg Arndt_, Jul 18 2012 */
		

Crossrefs

Essentially the same: A343180, also A122002 (map 0123 -> 1537), A125047 (map 0123 -> 2134).
Cf. A003324.

Programs

  • Mathematica
    Nest[ Flatten[ # /. {0 -> {0, 1}, 1 -> {2, 1}, 2 -> {0, 3}, 3 -> {2, 3}}] &, {0}, 7] (* Robert G. Wilson v, Dec 27 2005 *)
  • PARI
    a(n) = 2*bittest(n,valuation(n,2)+1) + !(n%2); \\ Kevin Ryde, Sep 09 2020

Formula

It should be easy to prove that a(4n) = 0, a(4n+2) = 2, a(8n+1) = 1, a(8n+5) = 3, a(4n+3) = a(2n+1). This would imply that a(2n) = 2(n mod 2), a(2n+1) = 1 + 2*A014707(n), with A014707(n) the classical paperfolding curve. - Ralf Stephan, Dec 28 2005

A125047 Infinite word generated by mapping 1->12, 2->13, 3->43, 4->42 starting at 1.

Original entry on oeis.org

1, 2, 1, 3, 1, 2, 4, 3, 1, 2, 1, 3, 4, 2, 4, 3, 1, 2, 1, 3, 1, 2, 4, 3, 4, 2, 1, 3, 4, 2, 4, 3, 1, 2, 1, 3, 1, 2, 4, 3, 1, 2, 1, 3, 4, 2, 4, 3, 4, 2, 1, 3, 1, 2, 4, 3, 4, 2, 1, 3, 4, 2, 4, 3, 1, 2, 1, 3, 1, 2, 4, 3, 1, 2, 1, 3, 4, 2, 4, 3, 1, 2, 1, 3, 1, 2, 4, 3, 4, 2, 1, 3, 4, 2, 4, 3, 4, 2, 1, 3, 1, 2, 4, 3, 1
Offset: 1

Views

Author

Michael Somos, Nov 17 2006

Keywords

Comments

Infinite word over 4-letter alphabet that contains no squares in arithmetic progressions of odd difference. - Ralf Stephan, May 09 2007

Examples

			1 -> 12 -> 1213 -> 12131242 -> 1213124312134243 -> ...
		

Crossrefs

Essentially the same: A112658 (map 1234 -> 1023), A122002 (map 1234 -> 5137).
Cf. A038190.

Programs

  • Mathematica
    SubstitutionSystem[{1 -> {1, 2}, 2 -> {1, 3}, 3 -> {4, 3}, 4 -> {4, 2}}, {1}, 7] // Last (* Jean-François Alcover, Dec 17 2018 *)
  • PARI
    {a(n)=local(A); if(n<1, 0, A=[1]; while(length(A)
    				
  • PARI
    my(table=[1,2;4,3]); a(n) = n--; table[if(n,bittest(n,1+valuation(n,2)))+1, n%2+1]; \\ Kevin Ryde, Sep 05 2020

Formula

Recurrence: a(1)=1, a(4n)=3, a(4n+2)=2, a(8n+3)=1, a(8n+7)=4, a(4n+1)=a(2n+1). - Ralf Stephan, May 09 2007
Showing 1-2 of 2 results.