OFFSET
1,2
COMMENTS
EXAMPLE
Northwest corner:
1...2...3...4...5....6....7
2...3...5...6...8....9....11
2...4...6...7...10...11...12
2...5...7...8...11...13...15
2...5...8...9...12...14...16
MATHEMATICA
f[n_, m_] := Sum[Floor[n/k + 1/2], {k, 1, m}]
TableForm[Table[f[n, m], {m, 1, 20}, {n, 1, 16}]]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Apr 20 2012
STATUS
approved