|
|
A005577
|
|
Maxima of the rows of the triangle A259095.
(Formerly M0495)
|
|
4
|
|
|
1, 1, 1, 2, 3, 4, 5, 6, 7, 9, 11, 15, 20, 27, 35, 44, 56, 73, 91, 115, 148, 186, 227, 283, 358, 435, 538, 671, 813, 1001, 1233, 1492, 1815, 2223, 2673, 3247, 3933, 4713, 5683, 6850, 8170, 9785, 11725, 13948, 16587, 19783, 23468, 27710, 32942, 38956, 45852, 54133, 63879, 75000, 87909, 103471, 121273, 141629
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
E. M. Wright, Stacks (III), The Quarterly J. of Math. (Oxford Journals), 23 (2) (1972) 153-158. MR0299575
|
|
MAPLE
|
b:= proc(n, i, d) option remember; `if`(i*(i+1)/2<n, 0,
`if`(n=0, 1, b(n, i-1, d+1)+`if`(i>n, 0, d*b(n-i, i-1, 1))))
end:
a:= n-> max(seq(b(n-r, r-1, 1), r=1..n)):
|
|
MATHEMATICA
|
b[n_, i_, d_] := b[n, i, d] = If[i*(i+1)/2 < n, 0, If[n == 0, 1, b[n, i-1, d+1] + If[i > n, 0, d*b[n-i, i-1, 1]]]];
a[n_] := Max[Table[b[n-r, r-1, 1], {r, 1, n}]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|