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.

A214208 First differences of A214207.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 2, 1, 5, 2, 1, 4, 1, 10, 1, 4, 1, 8, 2, 21, 1, 8, 2, 16, 1, 4, 41, 2, 16, 1, 4, 32, 1, 8, 83, 4, 32, 1, 8, 64, 2, 16, 1, 165, 8, 64, 2, 16, 1, 128, 4, 32, 1, 330, 16, 1, 128, 4, 32, 1, 256, 8, 64, 2, 661, 32, 1, 256, 8, 64, 2, 512, 16, 1, 128, 4, 1321, 64, 2, 512, 16, 1, 128, 4, 1024, 32, 1, 256, 8, 2642, 1, 128, 4, 1024, 32, 1, 256, 8
Offset: 1

Views

Author

N. J. A. Sloane, Jul 09 2012

Keywords

Comments

Created with the hope of obtaining a better understanding ofA213975.

Crossrefs

A213975 List of subwords of A003842 arranged in lexicographic order.

Original entry on oeis.org

1, 2, 11, 12, 21, 112, 121, 211, 212, 1121, 1211, 1212, 2112, 2121, 11211, 11212, 12112, 12121, 21121, 21211, 112112, 112121, 121121, 121211, 211211, 211212, 212112, 1121121, 1121211, 1211211, 1211212, 1212112, 2112112, 2112121, 2121121, 11211212, 11212112
Offset: 1

Views

Author

N. J. A. Sloane, Jul 03 2012, Jul 10 2012

Keywords

Comments

The Fibonacci word A003842 is a Sturmian word, which means that there are exactly n+1 different factors (or subwords) of length n for all n.
For another version of this sequence see the Noe link at A003849 (and included below).

Examples

			A003842 begins 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, ... and we can see factors 1, 2, 11, 12, 21, but not 22.
		

Crossrefs

Programs

  • Maple
    S:= proc(n) option remember;
          `if`(n<2, [2-n], [S(n-1)[], S(n-2)[]])
        end:
    T:= proc(n) local k, l, m, s;
          for k while nops(S(k))Alois P. Heinz, Jul 04 2012
  • Mathematica
    nmax = 10;
    seq[steps_] := seq[steps] = (S = SubstitutionSystem[{1 -> {1, 2}, 2 -> {1}}, {1}, steps] // Last; T[n_] := FromDigits /@ Union[Partition[S, n, 1]]; Table[T[n], {n, 1, nmax}] // Flatten);
    seq[s = 1];
    While[seq[s] != seq[s-1], s++];
    seq[s] (* Jean-François Alcover, Apr 28 2020 *)

Formula

The list S(n), say, of words of length n in this sequence can be constructed recursively as follows.
There are two words of length 1, namely S(1)={1,2}.
The n+2 words in S(n+1) are obtained from the n+1 words in S(n) thus:
if u in S(n) is the reverse of a prefix of the Fibonacci word A003842 then both u0 and u1 are in S(n+1), otherwise u in S(n) has a unique extension ux in S(n+1), where x is determined by the requirement that no right factor of ux is one of the forbidden words listed in A214216.
For example, A214216 contains both 22 and 111. So if u ends with 2 then (since 22 is forbidden), x=1 and u1 is in S(n+1), while if u ends with 11 then (since 111 is forbidden) x=2 and u2 is in S(n+1).
On the other hand, consider for example u=21121 in S(5), which is the reverse of the first 5 digits of A003842. Now both u1 and u2 are in S(6).

A214209 Numbers appearing in A214208 excluding powers 2^i with i>0.

Original entry on oeis.org

1, 3, 5, 10, 21, 41, 83, 165, 330, 661, 1321, 2642, 5285, 10569, 21139, 42277, 84554, 169109, 338217, 676435, 1352869, 2705738, 5411477, 10822953, 21645906, 43291813, 86583625, 173167251, 346334501, 692669002, 1385338005, 2770676009, 5541352018, 11082704037, 22165408073, 44330816147, 88661632293, 177323264586, 354646529173, 709293058345
Offset: 1

Views

Author

N. J. A. Sloane, Jul 09 2012

Keywords

Comments

Created with the hope of obtaining a better understanding of A213975.

Crossrefs

Formula

It appears that a(n+1) = 2*a(n) + eps, where eps = 0, 1 or -1. The first 130 values of eps show a pattern which is somewhat mysterious.
Showing 1-3 of 3 results.