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

Author

N. J. A. Sloane, Sep 12 2020

Keywords

• nonn
• base

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

Crossrefs

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

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