login
Positions of 1 in A285205; complement of A285206.
3

%I #4 Apr 22 2017 23:05:33

%S 2,5,7,10,13,15,18,21,24,27,29,32,35,37,40,43,45,48,51,53,56,59,62,65,

%T 67,70,73,75,78,81,84,87,89,92,95,97,100,103,105,108,111,113,116,119,

%U 122,125,127,130,133,135,138,141,144,147,149,152,155,157,160

%N Positions of 1 in A285205; complement of A285206.

%C Conjecture: 0 < n*r - a(n) < 3, where r = 1 + sqrt(3).

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

%e As a word, A285205 = 01001010010010..., in which 1 is in positions 2,5,7,10,,...

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

%t Flatten[Position[s, 0]]; (* A285206 *)

%t Flatten[Position[s, 1]]; (* A285207 *)

%Y Cf. A285205, A285206, A285208.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 21 2017