A284678 - OEIS

%I #8 May 19 2017 04:07:51

%S 2,6,10,14,19,23,27,32,36,40,45,49,53,57,62,66,70,75,79,83,88,92,96,

%T 100,105,109,113,118,122,126,131,135,139,143,148,152,156,161,165,169,

%U 174,178,182,187,191,195,199,204,208,212,217,221,225,230,234,238,242

%N Positions of 0 in A284677; complement of A284679.

%C Conjecture: 2 < n*r - a(n) < 4 for n >= 1, where r = (5+sqrt(13))/2.

%C If the conjectures here and in A284675 are true, then a(n) = A284675(n) for n>1. - _R. J. Mathar_, May 18 2017

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

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

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

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

%Y Cf. A284677, A284679.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 11 2017