|
%I #4 Apr 02 2017 09:45:30
%S 1,2,5,6,7,10,13,16,17,18,21,22,23,26,27,28,31,34,37,38,39,42,45,48,
%T 49,50,53,56,59,60,61,64,65,66,69,70,71,74,77,80,81,82,85,86,87,90,91,
%U 92,95,98,101,102,103,106,107,108,111,112,113,116,119,122,123
%N Positions of 1 in A284391; complement of A284392.
%H Clark Kimberling, <a href="/A284393/b284393.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 1 + A284390(n-1) for n >= 3.
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 9]; (* A284391 *)
%t Flatten[Position[s, 0]]; (* A284392 *)
%t Flatten[Position[s, 1]]; (* A284393 *)
%Y Cf. A284390, A284391, A284392.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Mar 30 2017
|
