login
Positions of 1 in A286903; complement of A286904.
3

%I #9 Nov 22 2024 08:41:37

%S 1,2,5,6,9,10,11,14,15,18,19,20,23,24,27,28,31,32,33,36,37,40,41,42,

%T 45,46,49,50,53,54,55,58,59,62,63,64,67,68,71,72,73,76,77,80,81,84,85,

%U 86,89,90,93,94,95,98,99,102,103,106,107,108,111,112,115,116

%N Positions of 1 in A286903; complement of A286904.

%C a(n) - a(n-1) is in {1,3} for n>=2, and a(n)/n -> -1 + 2*sqrt(2).

%H Clark Kimberling, <a href="/A286905/b286905.txt">Table of n, a(n) for n = 1..10000</a>

%F From _Ridouane Oudra_, Nov 21 2024: (Start)

%F a(n) = 2*floor(n*sqrt(2)) - n.

%F a(n) = 2*A001951(n) - n.

%F a(n) = A286909(n) - n. (End)

%e As a word, A286804 = 11001100111001100111001..., in which 1 is in positions 1,2,5,6,9,...

%p seq(2*floor(n*sqrt(2))-n, n=1..60); # _Ridouane Oudra_, Nov 21 2024

%t s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (* A080764 *)

%t w = StringJoin[Map[ToString, s]]

%t w1 = StringReplace[w, {"0" -> "00"}]

%t st = ToCharacterCode[w1] - 48 ; (* A286903 *)

%t Flatten[Position[st, 0]]; (* A286904 *)

%t Flatten[Position[st, 1]]; (* A286905 *)

%Y Cf. A080764, A286903, A286904, A001951, A286909.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, May 17 2017