A093446 Largest member of the n-th row of the triangular triangle (A093445).
1, 3, 9, 18, 33, 54, 82, 120, 165, 225, 294, 378, 476, 588, 720, 865, 1035, 1221, 1430, 1662, 1914, 2197, 2499, 2835, 3195, 3585, 4008, 4456, 4947, 5463, 6021, 6612, 7239, 7910, 8610, 9366, 10153, 10989, 11868, 12788, 13764, 14775, 15850, 16965, 18135
Offset: 1
Keywords
Examples
The row for n = 4 is (1+2+3+4), (5+6+7), (8+9), 10 => 10 18 17 10. The largest member is 18 hence a(4) = 18.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
Programs
-
Haskell
a093446 = maximum . a093445_row -- Reinhard Zumkeller, Oct 03 2012
-
Mathematica
T[n_] := n(n + 1)/2; TT[n_, k_] := T[k*n - T[k - 1]] - T[(k - 1)*n - T[k - 2]]; Max[ # ] & /@ Table[ TT[n, k], {n, 45}, {k, n}]
Extensions
Edited, corrected and extended by Robert G. Wilson v, Apr 24 2004
Comments