login
Positions of 0 in A285373; complement of A285375.
4

%I #4 Apr 26 2017 21:43:17

%S 4,8,12,14,18,22,26,28,32,36,40,42,46,48,52,56,60,62,66,70,74,76,80,

%T 84,88,90,94,96,100,104,108,110,114,118,122,124,128,132,136,138,142,

%U 144,148,152,156,158,162,164,168,172,176,178,182,186,190,192,196,200

%N Positions of 0 in A285373; complement of A285375.

%C Conjecture: -4 < n*sqrt(2) - a(n) < 1 for n>=1.

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

%e As a word, A285373 = 11101110..., in which 0 is in positions 4,8,12,14,...

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

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

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

%Y Cf. A284373, A285375, A285376, A285377.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 26 2017