|
%I #4 Jun 01 2017 21:09:33
%S 3,8,9,14,18,23,28,29,33,38,43,48,52,53,58,63,68,69,74,79,83,88,89,94,
%T 98,103,108,109,113,118,123,128,129,134,139,144,148,149,154,159,163,
%U 168,169,174,178,183,188,189,194,199,204,205,209,214,219,224,228
%N Positions of 2 in A287576.
%C a(n) - a(n-1) is in {1,4,5} for n >= 1; also, 4n - a(n) is in {0,1,2,3} for n >= 1. The first 20 numbers 4n - a(n) are 1, 0, 3, 2, 2, 1, 0, 3, 3, 2, 1, 0, 0, 3, 2, 1, 0, 3, 2, 1, with
%C 0 in positions given by A287580,
%C 1 in positions given by A287577,
%C 2 in positions given by A287578,
%C 3 in positions given by A287579.
%H Clark Kimberling, <a href="/A287579/b287579.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 4n - A287576(n) for n >= 1.
%t s = Nest[Flatten[# /. {0 -> {0,3,2,1}, 1 -> {3,2,1,0}, 2 -> {2,1,0,3}, 3 -> {1,0,3,2}}] &, {0}, 9]; (* A287576 *)
%t Flatten[Position[s, 0]]; (* A287577 *)
%t Flatten[Position[s, 1]]; (* A287578 *)
%t Flatten[Position[s, 2]]; (* A287579 *)
%t Flatten[Position[s, 3]]; (* A287580 *)
%Y Cf. A287576, A287577, A287578, A287580.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 01 2017
|
