|
| |
|
|
A048158
|
|
Triangular array T read by rows: T(n,k)=n mod k, for k=1,2,...,n, n=1,2,...
|
|
4
| |
|
|
0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 2, 1, 0, 0, 0, 0, 2, 1, 0, 0, 1, 1, 3, 2, 1, 0, 0, 0, 2, 0, 3, 2, 1, 0, 0, 1, 0, 1, 4, 3, 2, 1, 0, 0, 0, 1, 2, 0, 4, 3, 2, 1, 0, 0, 1, 2, 3, 1, 5, 4, 3, 2, 1, 0, 0, 0, 0, 0, 2, 0, 5, 4, 3, 2, 1, 0, 0, 1, 1, 1, 3, 1, 6, 5, 4, 3, 2, 1, 0, 0, 0, 2, 2, 4, 2, 0, 6, 5, 4, 3, 2, 1, 0
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,13
|
|
|
COMMENTS
| Also, rectangular array read by antidiagonals: a(n, k) = n%k, n >= 0, k >= 1. Cf. A051126, A051777. [From David Wasserman (dwasserm(AT)earthlink.net), Oct 01 2008]
A051731(n,k) = A000007(T(n,k)). [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 01 2009]
|
|
|
LINKS
| Weisstein, Eric W., Mod [From Mats Granvik, Gary W. Adamson (mats.granvik(AT)abo.fi), Feb 20 2010]
|
|
|
FORMULA
| T(n,k)=n-k*A010766. [From Mats Granvik, Gary W. Adamson (mats.granvik(AT)abo.fi), Feb 20 2010]
|
|
|
EXAMPLE
| Rows: {0}; {0,0}; {0,1,0}; ...
|
|
|
MATHEMATICA
| Flatten[Table[Mod[n, Range[n]], {n, 15}]]
|
|
|
CROSSREFS
| Row sums are given by A004125.
Sequence in context: A127512 A112207 A112208 * A113448 A123863 A035195
Adjacent sequences: A048155 A048156 A048157 * A048159 A048160 A048161
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Clark Kimberling (ck6(AT)evansville.edu)
|
|
|
EXTENSIONS
| More terms from David Wasserman (dwasserm(AT)earthlink.net), Oct 01 2008
|
| |
|
|
