|
%I #8 May 25 2017 05:28:30
%S 1,2,4,5,11,12,14,15,25,26,31,32,33,34,36,37,43,44,46,47,57,58,63,64,
%T 69,70,75,76,77,78,80,81,87,88,93,94,95,96,98,99,101,102,104,105,111,
%U 112,114,115,125,126,131,132,133,134,136,137,143,144,146,147
%N Positions of 1 in A287267.
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 2}, 2 -> 0}] &, {0}, 11] (* A287267 *)
%t Flatten[Position[s, 0]] (* A287268 *)
%t Flatten[Position[s, 1]] (* A287269 *)
%t Flatten[Position[s, 2]] (* A287270 *)
%Y Cf. A287267, A287268, A287270.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, May 24 2017
|
