|
|
A051777
|
|
Triangle read by rows, where row (n) = n mod n, n mod (n-1), n mod (n-2), ...n mod 1.
|
|
6
|
|
|
0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 2, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 2, 3, 1, 1, 0, 0, 1, 2, 3, 0, 2, 0, 0, 0, 1, 2, 3, 4, 1, 0, 1, 0, 0, 1, 2, 3, 4, 0, 2, 1, 0, 0, 0, 1, 2, 3, 4, 5, 1, 3, 2, 1, 0, 0, 1, 2, 3, 4, 5, 0, 2, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 1, 3, 1, 1, 1, 0, 0, 1, 2, 3, 4, 5, 6, 0, 2, 4, 2, 2, 0, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,13
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
row (5) = 5 mod 5, 5 mod 4, 5 mod 3, 5 mod 2, 5 mod 1 = 0, 1, 2, 1, 0.
0 ;
0 0 ;
0 1 0 ;
0 1 0 0 ;
0 1 2 1 0;
0 1 2 0 0 0 ;
0 1 2 3 1 1 0 ;
0 1 2 3 0 2 0 0;
0 1 2 3 4 1 0 1 0 ;
0 1 2 3 4 0 2 1 0 0 ;
0 1 2 3 4 5 1 3 2 1 0 ;
0 1 2 3 4 5 0 2 0 0 0 0 ;
0 1 2 3 4 5 6 1 3 1 1 1 0 ;
|
|
MATHEMATICA
|
Flatten[Table[Mod[n, Range[n, 1, -1]], {n, 20}]] (* Harvey P. Dale, Nov 30 2011 *)
|
|
PROG
|
(Haskell)
a051777 n k = a051777_row n !! (k-1)
a051777_row n = map (mod n) [n, n-1 .. 1]
a051777_tabl = map a051777_row [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|