|
|
A005576
|
|
The limiting sequence [A259095(r(r+1)/2-s,r), s=0,1,2,...,r-1] for very large r.
(Formerly M0583)
|
|
4
|
|
|
1, 1, 2, 3, 4, 7, 9, 13, 17, 25, 32, 43, 56, 73, 95, 122, 155, 196, 248, 309, 388, 480, 595, 731, 899, 1096, 1338, 1624, 1967, 2373, 2860, 3431, 4111, 4911, 5853, 6963, 8263, 9785, 11565, 13646, 16064, 18884, 22155, 25953, 30349, 35441, 41311, 48098, 55906, 64900, 75231, 87103, 100702, 116296, 134130, 154522
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
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), Quart. J. Math. Oxford, 23 (1972), 153-158.
|
|
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-> b(n*(n-1)/2, n, 1):
|
|
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_] := b[n*(n - 1)/2, n, 1];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Terms a(12)=56 and beyond from Joerg Arndt, Apr 10 2016
|
|
STATUS
|
approved
|
|
|
|