|
%I #4 May 21 2017 14:34:33
%S 2,5,7,11,14,16,18,21,23,27,31,34,36,40,43,45,47,50,52,54,57,59,63,66,
%T 68,70,73,75,79,83,86,88,92,96,99,101,105,108,110,112,115,117,121,125,
%U 128,130,134,137,139,141,144,146,148,151,153,157,160,162,164
%N Positions of 1 in A287002.
%H Clark Kimberling, <a href="/A287004/b287004.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 0}, 2 -> 1}] &, {0}, 10](* A287002 *)
%t Flatten[Position[s, 0]] (* A287003 *)
%t Flatten[Position[s, 1]] (* A287004 *)
%t Flatten[Position[s, 2]] (* A287081 *)
%Y Cf. A287002, A287003, A287081.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, May 21 2017
|
