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