login
Positions of 1 in A284391; complement of A284392.
4

%I #4 Apr 02 2017 09:45:30

%S 1,2,5,6,7,10,13,16,17,18,21,22,23,26,27,28,31,34,37,38,39,42,45,48,

%T 49,50,53,56,59,60,61,64,65,66,69,70,71,74,77,80,81,82,85,86,87,90,91,

%U 92,95,98,101,102,103,106,107,108,111,112,113,116,119,122,123

%N Positions of 1 in A284391; complement of A284392.

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

%F a(n) = 1 + A284390(n-1) for n >= 3.

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

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

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

%Y Cf. A284390, A284391, A284392.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Mar 30 2017