cp's OEIS Frontend

A279319 Period 16 zigzag sequence: repeat [0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1].

%I A279319 #24 Mar 02 2024 23:50:16
%S A279319 0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1,0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1,0,1,
%T A279319 2,3,4,5,6,7,8,7,6,5,4,3,2,1,0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1,0,1,2,3,
%U A279319 4,5,6,7,8,7,6,5,4,3,2,1,0,1,2,3,4,5
%N A279319 Period 16 zigzag sequence: repeat [0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1].
%C A279319 Decimal expansion of 11111111/900000009. - _Elmo R. Oliveira_, Feb 20 2024
%H A279319 <a href="/index/Rec#order_09">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,0,0,0,-1,1).
%F A279319 a(n) = abs(n - 16*round(n/16)).
%F A279319 G.f.: x*(1 + x)*(1 + x^2)*(1 + x^4)/((1 - x)*(1 + x^8)). - _Ilya Gutkovskiy_, Dec 10 2016
%F A279319 a(n) = a(n-1)-a(n-8)+a(n-9). - _Wesley Ivan Hurt_, Nov 18 2021
%F A279319 a(n) = a(n-16) for n >= 16. - _Wesley Ivan Hurt_, Sep 07 2022
%t A279319 PadRight[{}, 120, {0, 1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1}] (* _Vincenzo Librandi_, Dec 10 2016 *)
%t A279319 With[{k = 16}, Table[Min[Abs[# - k], #] &@ Mod[n, k], {n, 0, 120}]] (* or *)
%t A279319 CoefficientList[Series[x (1 + x) (1 + x^2) (1 + x^4)/((1 - x) (1 + x^8)), {x, 0, 120}], x] (* _Michael De Vlieger_, Dec 10 2016 *)
%o A279319 (Magma) &cat[[0, 1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1]: n in [0..5]];
%o A279319 (Python)
%o A279319 def A279319(n): return (0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1)[n&15] # _Chai Wah Wu_, Mar 02 2023
%Y A279319 Period k zigzag sequences: A000035 (k=2), A007877 (k=4), A260686 (k=6), A266313 (k=8), A271751 (k=10), A271832 (k=12), A279313 (k=14), this sequence (k=16), A158289 (k=18).
%K A279319 nonn,easy
%O A279319 0,3
%A A279319 _Wesley Ivan Hurt_, Dec 09 2016