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

%I #12 Feb 05 2023 01:59:37

%S 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,

%T 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,

%U 13,13,13,13,13,13,14,14,14,14,14,14,14,15,16,16,16,16,16,16,16,17

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

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

%H Amiram Eldar, <a href="/A337634/b337634.txt">Table of n, a(n) for n = 0..10000</a>

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

%Y Cf. A020899, A095096, A337287, A337288, A337289, A337290, A337635, A337636, A337637.

%K nonn,base

%O 0,10

%A _N. J. A. Sloane_, Sep 12 2020

%E Offset corrected by _Amiram Eldar_, Feb 05 2023