|
%I #8 Apr 25 2017 17:19:58
%S 2,6,8,12,16,20,22,26,28,32,36,40,42,46,50,54,56,60,64,68,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,166,170,172,176,180,184,186,190,192,196
%N Positions of 0 in A285341; complement of A285343.
%C Conjecture: 0 < n*r - a(n) < 4 for n>=1, where r = 2 + sqrt(2).
%H Clark Kimberling, <a href="/A285342/b285342.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285341 = 1011101..., in which 0 is in positions 2,6,8,12,16,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 0, 1, 1}}] &, {0}, 10]; (* A285341 *)
%t u = Flatten[Position[s, 0]]; (* A285342 *)
%t Flatten[Position[s, 1]]; (* A285343 *)
%t u/2 (* A285344)
%Y Cf. A285341, A285343, A285344.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 25 2017
|
