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

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,3

References

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

Links

Amiram Eldar, Table of n, a(n) for n = 0..10000

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 *)

Crossrefs

Cf. A020899, A095096, A337287, A337288, A337289, A337290, A337634, A337635, A337636.

Sequence in context: A054899 A061217 A102684 * A156821 A025856 A350765

Adjacent sequences: A337634 A337635 A337636 * A337638 A337639 A337640

Keyword

nonn,base

Author

N. J. A. Sloane, Sep 12 2020

Extensions

Offset corrected by Amiram Eldar, Feb 05 2023

Status

approved