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 12 results. Next

A161639 Positions n such that A010060(n) = A010060(n+8).

Original entry on oeis.org

8, 9, 10, 11, 12, 13, 14, 15, 40, 41, 42, 43, 44, 45, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63, 72, 73, 74, 75, 76, 77, 78, 79, 104, 105, 106, 107, 108, 109, 110, 111, 136, 137, 138, 139, 140, 141, 142, 143, 168, 169, 170, 171, 172, 173, 174, 175, 184, 185, 186, 187, 188, 189
Offset: 1

Views

Author

Vladimir Shevelev, Jun 15 2009

Keywords

Comments

Locates correlations of the form 1xxxxxxx1 or 0xxxxxxx0 in the Thue-Morse sequence.
Or: union of numbers 8*A079523(n)+k, k=0, 1, 2, 3, 4, 5, 6, or 7.
Generalization: the numbers n such that A010060(n) = A010060(n+2^m) constitute the union of sequences {2^m*A079523(n)+k}, k=0,1,...,2^m-1.

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n-1)/2]; Reap[For[n = 0, n <= 200, n++, If[tm[n] == tm[n+8], Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 24 2013 *)
    SequencePosition[ThueMorse[Range[0,200]],{x_,,,_,,,_,,x}][[All,1]]-1 (* Harvey P. Dale, Jul 23 2021 *)
  • PARI
    is(n)=hammingweight(n)%2==hammingweight(n+8)%2 \\ Charles R Greathouse IV, Aug 20 2013

Extensions

Duplicate of 174 removed by R. J. Mathar, Aug 28 2009

A161641 Positions n such that A010060(n) + A010060(n+4) = 1.

Original entry on oeis.org

0, 1, 2, 3, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 24, 25, 26, 27, 32, 33, 34, 35, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 88, 89, 90, 91, 96, 97, 98, 99, 104, 105, 106, 107, 108
Offset: 1

Views

Author

Vladimir Shevelev, Jun 15 2009

Keywords

Comments

Also union of all numbers of the form A131323(n)-k, k=0, 1, 2, or 3.

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 16000, n++, If[tm[n] + tm[n + 4] == 1, Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 01 2018 *)
  • PARI
    is(n)=hammingweight(n)%2!=hammingweight(n+4)%2 \\ Charles R Greathouse IV, Aug 20 2013

Formula

Extensions

More terms from R. J. Mathar, Aug 17 2009

A161674 Positions n such that A010060(n) + A010060(n+2) = 1.

Original entry on oeis.org

0, 1, 4, 5, 6, 7, 8, 9, 12, 13, 16, 17, 20, 21, 22, 23, 24, 25, 28, 29, 30, 31, 32, 33, 36, 37, 38, 39, 40, 41, 44, 45, 48, 49, 52, 53, 54, 55, 56, 57, 60, 61, 64, 65, 68, 69, 70, 71, 72, 73, 76, 77, 80, 81, 84, 85, 86, 87, 88, 89, 92, 93, 94, 95, 96, 97, 100, 101, 102, 103, 104
Offset: 1

Views

Author

Vladimir Shevelev, Jun 16 2009

Keywords

Comments

Locates patterns of the form 0x1 or 1x0 in the Thue-Morse sequence.
Complement to A081706. Also: union of sequences {2*A121539(n)+k}, k=0 or 1, generalized in A161673.
Also union of sequences {A079523(n)-k}, k=0 or 1. For a generalization see A161890. - Vladimir Shevelev, Jul 05 2009
The asymptotic density of this sequence is 2/3 (Rowland and Yassawi, 2015; Burns, 2016). - Amiram Eldar, Jan 30 2021

Crossrefs

Programs

Extensions

Extended by R. J. Mathar, Aug 28 2009

A161673 Positions n such that A010060(n) + A010060(n+8) = 1.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 48, 49, 50, 51, 52, 53, 54, 55, 64, 65, 66, 67, 68, 69, 70, 71, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103
Offset: 1

Views

Author

Vladimir Shevelev, Jun 16 2009

Keywords

Comments

Also union of numbers of the form 8*A121539(n)+k, 0<=k<8.
Generalization: the numbers n such that A010060(n)+A010060(n+2^m)=1 constitute the union of sequences {2^m*A121539(n)+k}, k=0,1,...,2^m-1.

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 6000, n++, If[tm[n] + tm[n + 8] == 1, Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    is(n)=hammingweight(n)%2!=hammingweight(n+8)%2 \\ Charles R Greathouse IV, Aug 20 2013

Formula

Extensions

Edited and extended by R. J. Mathar, Sep 02 2009

A161817 Positions n such that A010060(n) = A010060(n+5).

Original entry on oeis.org

0, 2, 5, 8, 10, 11, 12, 14, 15, 16, 18, 21, 24, 26, 29, 32, 34, 37, 40, 42, 43, 44, 46, 47, 48, 50, 53, 56, 58, 59, 60, 62, 63, 64, 66, 69, 72, 74, 75, 76, 78, 79, 80, 82, 85, 88, 90, 93, 96, 98, 101, 104, 106, 107, 108, 110, 111, 112, 114, 117, 120, 122, 125, 128, 130, 133, 136, 138, 139, 140, 142, 143, 144
Offset: 1

Views

Author

Vladimir Shevelev, Jun 20 2009

Keywords

Comments

Let A=Axxxxxx be any sequence. Denote by A^* the intersection of A and the union of sequences {4*A(n)+k}, k=-1,0,1,2. Then the present sequence is the union of A079523^* and A121539^*.
Conjecture. In every sequence of numbers n such that A010060(n)=A010060(n+k) for fixed odd k, the odious (A000069) and evil (A001969) terms alternate. [Vladimir Shevelev, Jul 31 2009]

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 20000, n++,  If[tm[n] == tm[n + 5], Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    is(n)=hammingweight(n+5)==Mod(hammingweight(n),2) \\ Charles R Greathouse IV, Mar 26 2013

A161824 Numbers such that A010060(n) = A010060(n+6).

Original entry on oeis.org

0, 1, 2, 3, 6, 7, 8, 9, 12, 13, 16, 17, 18, 19, 22, 23, 24, 25, 26, 27, 30, 31, 32, 33, 34, 35, 38, 39, 40, 41, 44, 45, 48, 49, 50, 51, 54, 55, 56, 57, 60, 61, 64, 65, 66, 67, 70, 71, 72, 73, 76, 77, 80, 81, 82, 83, 86, 87, 88, 89, 90, 91, 94, 95, 96, 97, 98, 99, 102, 103, 104, 105, 108
Offset: 1

Views

Author

Vladimir Shevelev, Jun 20 2009

Keywords

Comments

Let A=Axxxxxx be any sequence from OEIS. Denote by A^* the intersection of the union of sequences {2*A(n)+j}, j=0,1, and the union of sequences {4*A(n)+k}, k=-2,-1,0,1. Then the sequence is the union of (A079523)^* and (A121539)^*.

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 6000, n++, If[tm[n] == tm[n + 6], Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    is(n)=hammingweight(n)%2==hammingweight(n+6)%2 \\ Charles R Greathouse IV, Aug 20 2013

Extensions

Terms a(40) onwards added by G. C. Greubel, Jan 05 2018
Offset corrected by Mohammed Yaseen, Mar 29 2023

A161890 Numbers such that A010060(n) = A010060(n+9).

Original entry on oeis.org

0, 2, 3, 4, 6, 7, 9, 13, 15, 16, 18, 19, 20, 22, 24, 26, 27, 28, 30, 32, 34, 35, 36, 38, 39, 41, 45, 47, 48, 50, 51, 52, 54, 55, 57, 61, 63, 64, 66, 67, 68, 70, 71, 73, 77, 79, 80, 82, 83, 84, 86, 88, 90, 91, 92, 94, 96, 98, 99, 100, 102, 103, 105, 109, 111, 112, 114, 115, 116, 118, 120
Offset: 0

Views

Author

Vladimir Shevelev, Jun 21 2009

Keywords

Comments

Or union of intersection of A161639 and {A079523(n)-8} and intersection of A161673 and {A121539(n)-8}. In general, for a>=1, consider equations A010060(x+a)+A010060(x)=1, A010060(x+a)=A010060(x). Denote via B_a (C_a) the sequence of nonnegative solutions of the first (second) equation. Then we have recursions: B_(a+1) is the union of transactions 1) C_a and {A121539(n)-a}, 2) B_a and {A079523(n)-a}; C_(a+1) is the union of transactions 1) C_a and {A079523(n)-a}, 2) B_a and {A121539(n)-a}.
Conjecture. In every sequence of numbers n, such that A010060(n)=A010060(n+k), for fixed odd k, the odious (A000069) and evil (A001969) terms alternate. - Vladimir Shevelev, Jul 31 2009
This conjecture was actually proved in a later version of the Shevelev arxiv article cited below, and it can also easily be proved by the Walnut prover. - Jeffrey Shallit, Oct 12 2022

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 18000, n++, If[tm[n] == tm[n + 9], Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 05 2018 *)
    SequencePosition[ThueMorse[Range[0,150]],{x_,,,_,,,_,,,x_}][[All,1]]-1 (* Harvey P. Dale, Feb 06 2023 *)
  • PARI
    is(n)=hammingweight(n)%2==hammingweight(n+9)%2 \\ Charles R Greathouse IV, Aug 20 2013

Extensions

Terms a(35) onward added by G. C. Greubel, Jan 05 2018

A162634 Numerators of fractions with denominators A000215(n) approximating the Thue-Morse constant.

Original entry on oeis.org

1, 2, 7, 106, 27031, 1771476586, 7608434000728254871, 140350834813144189858090274002849666666, 47758914269546354982683078068829456704164423862093743397580034411621752859031
Offset: 0

Views

Author

Vladimir Shevelev, Jul 08 2009, Jul 14 2009

Keywords

Comments

One can prove that if in the sequence of numbers N for which A010060(N+2^n)= A010060(N) you replace the odious (evil) terms by 1's (0's), then we obtain 2^(n+1)-periodic (0,1)-sequence; if you write it in the form .xx...,i.e., as a binary infinite fraction, then the corresponding fraction has the form a(n)/A000215(n). These fractions very fast converge to the Thue-Morse constant .4124540336401...; e.g a(5)/(2^32+1) approximates this constant up to 10^(-9). These approximations differ from A074072-A074073. Conjecture. For n>=1, the fraction a(n)/A000215(n) is a convergent corresponding to the continued fraction for the Thue-Morse constant.

Crossrefs

Programs

  • PARI
    a(n)=if(n<=1, [1,2][n+1], 1+(2^(2^(n-1))-1)*a(n-1)); /* Joerg Arndt, Mar 11 2013 */

Formula

a(1)=2, and, for n>=2, a(n) = 1 + (2^(2^(n-1))-1) * a(n-1).

Extensions

Added more terms, Joerg Arndt, Mar 11 2013

A161974 a(n) = number of equalities of the form A010060(n+k) = A010060(n), k=1,2,3.

Original entry on oeis.org

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

Views

Author

Vladimir Shevelev, Jun 23 2009

Keywords

Comments

See comment to A161916. 3-a(n) is the number of equalities of kind A010060(n+k) = 1-A010060(n), k=1,2,3.

Crossrefs

Programs

Extensions

Missing a(24)=1 inserted by Georg Fischer, Jun 21 2024

A162311 Numbers such that A010060(n) = A010060(n+7).

Original entry on oeis.org

1, 3, 4, 5, 7, 10, 14, 17, 19, 20, 21, 23, 25, 27, 28, 29, 31, 33, 35, 36, 37, 39, 42, 46, 49, 51, 52, 53, 55, 58, 62
Offset: 1

Views

Author

Vladimir Shevelev, Jul 01 2009

Keywords

Comments

Or union of intersection of A161673 and {A121539(n)-7} and intersection of A161639 and {A079523(n)-7}.
Conjecture: In every sequence of numbers n, such that A010060(n)=A010060(n+k), for fixed odd k, the odious (A000069) and evil (A001969) terms alternate. - Vladimir Shevelev, Jul 31 2009

Crossrefs

Programs

  • Mathematica
    tm[0] = 0; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 1 - tm[(n - 1)/2]; Reap[For[n = 0, n <= 20000, n++, If[tm[n] == tm[n + 7], Sow[n]]]][[2, 1]] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    is(n)=hammingweight(n)%2==hammingweight(n+7)%2 \\ Charles R Greathouse IV, Aug 20 2013
Showing 1-10 of 12 results. Next