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