%I #5 May 31 2017 22:57:46
%S 0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2,3,4,5,
%T 6,7,8,9,10,9,8,7,6,5,4,3,4,5,6,7,8,9,10,11,10,9,8,7,6,5,4,5,6,7,8,9,
%U 10,11,12,11,10,9,8,7,6,5,6,7,8,9,10,11
%N Eight steps forward, seven steps back.
%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,-1).
%F a(n) = Sum_{i=1..n} (-1)^floor((2*i-2)/15).
%F a(n) = a(n-1) + a(n-15) - a(n-16) for n > 15.
%p A287793:=n->add((-1)^floor((2*i-2)/15), i=1..n): seq(A287793(n), n=0..200);
%t Table[Sum[(-1)^Floor[(2 i - 2)/15], {i, n}], {n, 0, 100}]
%Y Cf. A008611 (one step back, two steps forward).
%Y Cf. A058207 (three steps forward, two steps back).
%Y Cf. A260644 (four steps forward, three steps back).
%Y Cf. A271800 (five steps forward, four steps back).
%Y Cf. A271859 (six steps forward, five steps back).
%Y Cf. A287655 (seven steps forward, six steps back).
%K nonn,easy
%O 0,3
%A _Wesley Ivan Hurt_, May 31 2017