|
%I #4 Jun 01 2017 21:09:27
%S 4,5,10,15,19,24,25,30,34,39,44,45,49,54,59,64,65,70,75,80,84,85,90,
%T 95,99,104,105,110,114,119,124,125,130,135,140,141,145,150,155,160,
%U 164,165,170,175,179,184,185,190,195,200,201,206,210,215,220,221,225
%N Positions of 1 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 0, 3, 2, 1, 1, 0, 3, 2, 2, 1, 0, 3, 3, 2, 1, 0, 3, 2, 1, 0, with
%C 0 in positions given by A287577,
%C 1 in positions given by A287578,
%C 2 in positions given by A287579,
%C 3 in positions given by A287580.
%H Clark Kimberling, <a href="/A287578/b287578.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, A287579, A287580.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 01 2017
|
