login
Positions of 0 in A285657; complement of A285659.
4

%I #9 Jun 04 2020 18:20:02

%S 2,8,12,16,20,24,30,34,38,44,48,52,58,62,66,72,76,80,86,90,94,98,102,

%T 108,112,116,122,126,130,136,140,144,148,152,158,162,166,172,176,180,

%U 186,190,194,198,202,208,212,216,222,226,230,236,240,244,248,252

%N Positions of 0 in A285657; complement of A285659.

%C Conjecture: a(n)/n -> (5 + sqrt(17))/2.

%H Clark Kimberling, <a href="/A285658/b285658.txt">Table of n, a(n) for n = 1..10000</a> [term a(8731)=39826 -> 39824 and following corrected by _Georg Fischer_, Jun 04 2020]

%e As a word, A285657 = 101111101..., in which 0 is in positions 2,8,12,16,...

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

%t u = Flatten[Position[s, 0]] (* A285658 *)

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

%t u/2 (* A286043 *)

%Y Cf. A285551, A285658, A285659.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 01 2017