A287000 - OEIS

%I #4 May 22 2017 20:02:51

%S 2,6,8,12,15,19,23,26,30,32,36,39,43,45,49,52,56,60,63,67,69,73,76,80,

%T 83,87,89,93,96,100,104,107,111,113,117,120,124,128,131,135,137,141,

%U 144,148,151,155,157,161,164,168,172,175,179,181,185,188,192,194

%N Positions of 1 in A286998.

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

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

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

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

%t Flatten[Position[s, 2]] (* A287001 *)

%Y Cf. A286998, A286999, A287001.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 22 2017