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

A337287 Numbers k such that both k and k+1 are in A095096.

Original entry on oeis.org

6, 9, 10, 14, 15, 22, 23, 35, 36, 46, 53, 56, 57, 67, 74, 75, 82, 85, 86, 90, 91, 101, 108, 109, 116, 119, 120, 129, 132, 133, 137, 138, 145, 146, 156, 163, 164, 171, 174, 175, 184, 187, 188, 192, 193, 205, 208, 209, 213, 214, 221, 222, 234, 235, 245, 252, 253, 260, 263, 264, 273
Offset: 1

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

Comments

From Michel Dekking, Oct 09 2020: (Start)
Let s_Z = A095076 be the parity of the sum of digits function of the Zeckendorf representation. Shutov's main result is that the number of times that s_Z(k) mod 2 = 0 AND s_Z(k+1) mod 2 = 0 in [0,n] divided by n tends to sqrt(5)/10.
It is possible to derive this result in a few lines by using the representation of s_Z as a morphic sequence, as given in the Comments of A095076.
To this end one considers the 2-block substitution sigma^[2] of the Zeckendorf morphism
sigma: 1->12, 2->4, 3->1, 4->43.
There are 10 words of length 2 occurring in the fixed points of this morphism. These are 11, 12, 14, 21, 24, 31, 34, 41, 43 and 44. Since the sigma^[2]-images of both 12 and 14 are 12,24, and this is also the case for the pair 41 and 43, one can reduce the number of letters to 8.
Coding the words of length 2 in lexicographic order this gives sigma^[2] on the alphabet {1,2,...,7,8} as
sigma^[2]: 1->23, 2->24, 3->7, 4->8, 5->1, 6->2, 7->75, 8->76.
The letter-to-letter map lambda mapping the fixed point of sigma^[2] to the sequence s_Z = A095076 is given by lambda(1)=0, lambda(2)=1, lambda(3)=0, lambda(4)=1 (see A095076).
We see that lambda(11) = lambda(31) = 00, and these are the only words of length 2 mapping to 00. It follows that the frequency of 00 in s_Z is equal to the sum of the frequencies of 1 and 5 in the fixed point starting with 2 of the morphism sigma^[2]. It is well known that these frequencies are given by the normalized eigenvector corresponding to the Perron-Frobenius eigenvalue of the incidence matrix of the morphism sigma^[2].
An eigenvalue calculation then gives the value sqrt(5)/10 from above.
Final remark: the same result has been derived for the base-phi expansion of the natural numbers, and the limit is the same.
(End)

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    SequencePosition[Mod[DigitCount[Select[Range[0, 3000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {0, 0}][[;; , 1]] - 1 (* Amiram Eldar, Feb 05 2023 *)

A337289 Numbers k such that k+1 is in A095096 and k is in A020899.

Original entry on oeis.org

3, 5, 8, 13, 17, 21, 25, 28, 32, 34, 38, 41, 45, 50, 52, 55, 59, 62, 66, 71, 73, 79, 81, 84, 89, 93, 96, 100, 105, 107, 113, 115, 118, 122, 126, 128, 131, 136, 140, 144, 148, 151, 155, 160, 162, 168, 170, 173, 177, 181, 183, 186, 191, 195, 198, 202, 204, 207, 212, 216, 220, 224, 227
Offset: 1

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    SequencePosition[Mod[DigitCount[Select[Range[0, 3000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {1, 0}][[;; , 1]] - 1 (* Amiram Eldar, Feb 05 2023 *)

A337290 Numbers k such that both k and k+1 are in A020899.

Original entry on oeis.org

1, 2, 12, 19, 20, 27, 30, 31, 40, 43, 44, 48, 49, 61, 64, 65, 69, 70, 77, 78, 88, 95, 98, 99, 103, 104, 111, 112, 124, 125, 135, 142, 143, 150, 153, 154, 158, 159, 166, 167, 179, 180, 190, 197, 200, 201, 211, 218, 219, 226, 229, 230, 239, 242, 243, 247, 248, 255, 256, 268, 269, 279
Offset: 1

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    SequencePosition[Mod[DigitCount[Select[Range[0, 3000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {1, 1}][[;; , 1]] - 1 (* Amiram Eldar, Feb 05 2023 *)

A337634 Number of numbers k <= n such that both k and k+1 are in A095096.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 3, 3, 3, 3, 4, 5, 5, 5, 5, 5, 5, 5, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 17
Offset: 0

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    s = SequencePosition[Mod[DigitCount[Select[Range[0, 400], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {0, 0}][[;; , 1]] - 1; t = Table[0, {s[[-1]] + 1}]; t[[s + 1]] = 1; Accumulate[t] (* Amiram Eldar, Feb 05 2023 *)

Extensions

Offset corrected by Amiram Eldar, Feb 05 2023

A337635 Number of numbers k <= n such that k is in A095096 and k+1 is in A020899.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, 16, 17, 17, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 22, 22, 22, 22
Offset: 0

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    s = SequencePosition[Mod[DigitCount[Select[Range[0, 400], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {0, 1}][[;; , 1]] - 1; t = Table[0, {s[[-1]] + 1}]; t[[s + 1]] = 1; Accumulate[t] (* Amiram Eldar, Feb 05 2023 *)

Extensions

Offset corrected by Amiram Eldar, Feb 05 2023

A337637 Number of numbers k <= n such that both k and k+1 are in A020899.

Original entry on oeis.org

0, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 10, 11, 11, 11, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 15, 16, 16, 16, 16, 17, 18, 18, 18, 18, 18, 18, 18, 19, 20, 20, 20
Offset: 0

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    s = SequencePosition[Mod[DigitCount[Select[Range[0, 400], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {1, 1}][[;; , 1]] - 1; t = Table[0, {s[[-1]] + 1}]; t[[s + 1]] = 1; Accumulate[t] (* Amiram Eldar, Feb 05 2023 *)

Extensions

Offset corrected by Amiram Eldar, Feb 05 2023

A337288 Numbers k such that k is in A095096 and k+1 is in A020899.

Original entry on oeis.org

0, 4, 7, 11, 16, 18, 24, 26, 29, 33, 37, 39, 42, 47, 51, 54, 58, 60, 63, 68, 72, 76, 80, 83, 87, 92, 94, 97, 102, 106, 110, 114, 117, 121, 123, 127, 130, 134, 139, 141, 147, 149, 152, 157, 161, 165, 169, 172, 176, 178, 182, 185, 189, 194, 196, 199, 203, 206, 210, 215, 217, 223, 225
Offset: 1

Views

Author

N. J. A. Sloane, Sep 12 2020

Keywords

References

  • Anton Shutov, On the sum of digits of the Zeckendorf representations of two consecutive numbers, Fib. Q., 58:3 (2020), 203-207.

Crossrefs

Programs

  • Mathematica
    SequencePosition[Mod[DigitCount[Select[Range[0, 3000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], {0, 1}][[;; , 1]] - 1 (* Amiram Eldar, Feb 05 2023 *)
Showing 1-7 of 7 results.