|
%I #4 May 21 2017 14:35:24
%S 1,5,6,7,9,11,15,19,23,24,25,29,30,31,35,36,37,39,41,45,46,47,49,51,
%T 55,56,57,59,61,65,69,73,74,75,77,79,83,87,91,92,93,95,97,101,105,109,
%U 110,111,115,116,117,121,122,123,125,127,131,135,139,140,141
%N Positions of 0 in A287086.
%H Clark Kimberling, <a href="/A287087/b287087.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 2}, 2 -> 0}] &, {0}, 10] (* A287086 *)
%t Flatten[Position[s, 0]] (* A287087 *)
%t Flatten[Position[s, 1]] (* A287088 *)
%t Flatten[Position[s, 2]] (* A287089 *)
%Y Cf. A287086, A287088, A287089.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, May 21 2017
|
