login
Positions of 1 in A284388; complement of A284389.
4

%I #11 Apr 02 2020 14:07:52

%S 3,6,7,8,11,14,17,18,19,22,23,24,27,28,29,32,35,38,39,40,43,46,49,50,

%T 51,54,57,60,61,62,65,66,67,70,71,72,75,78,81,82,83,86,87,88,91,92,93,

%U 96,99,102,103,104,107,108,109,112,113,114,117,120,123,124

%N Positions of 1 in A284388; complement of A284389.

%C This seems to be A098740 without the initial 2. - _R. J. Mathar_, Apr 05 2017

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

%F a(n) = 1 + A284393(n+1) for n >= 1.

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

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

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

%Y Cf. A284388, A284389, A284393.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Mar 30 2017