|
|
A279319
|
|
Period 16 zigzag sequence: repeat [0,1,2,3,4,5,6,7,8,7,6,5,4,3,2,1].
|
|
9
|
|
|
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, 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, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = abs(n - 16*round(n/16)).
G.f.: x*(1 + x)*(1 + x^2)*(1 + x^4)/((1 - x)*(1 + x^8)). - Ilya Gutkovskiy, Dec 10 2016
|
|
MATHEMATICA
|
PadRight[{}, 120, {0, 1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1}] (* Vincenzo Librandi, Dec 10 2016 *)
With[{k = 16}, Table[Min[Abs[# - k], #] &@ Mod[n, k], {n, 0, 120}]] (* or *)
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 *)
|
|
PROG
|
(Magma) &cat[[0, 1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1]: n in [0..5]];
(Python)
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|