login
Positions of 0 in A284468; complement of A284470.
3

%I #6 Apr 05 2017 07:42:44

%S 1,3,4,6,8,9,12,14,15,16,18,19,21,23,24,27,29,30,32,34,35,38,40,41,42,

%T 44,45,47,49,50,54,56,57,60,62,63,65,67,68,71,73,74,75,77,78,79,81,82,

%U 84,86,87,90,92,93,94,96,97,99,101,102,105,107,108,110

%N Positions of 0 in A284468; complement of A284470.

%C Conjecture: a(n)/n -> (7 + sqrt(13))/6.

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

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

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

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

%Y Cf. A284468, A284470, A284472.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 02 2017