|
| |
|
|
A000391
|
|
Euler transform of A000332.
(Formerly M4144 N1721)
|
|
0
| |
|
|
1, 6, 21, 71, 216, 672, 1982, 5817, 16582, 46633, 128704, 350665, 941715, 2499640, 6557378, 17024095, 43756166, 111433472, 281303882, 704320180, 1749727370, 4314842893, 10565857064, 25700414815, 62115621317
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| A. O. L. Atkin, P. Bratley, I. G. McDonald and J. K. S. McKay, Some computations for m-dimensional partitions, Proc. Camb. Phil. Soc., 63 (1967), 1097-1100.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
|
LINKS
| N. J. A. Sloane, Transforms
|
|
|
MAPLE
| with (numtheory): etr:= proc(p) local b; b:=proc(n) option remember; local d, j; if n=0 then 1 else add (add (d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n fi end end: a:= etr (n-> binomial(n+3, 4)): seq (a(n), n=1..25); [From Alois P. Heinz, Sep 08 2008]
|
|
|
PROG
| (PARI) a(n)=if(n<0, 0, polcoeff(exp(sum(k=1, n, x^k/(1-x^k)^5/k, x*O(x^n))), n)) /* Joerg Arndt, Apr 16 2010 */
|
|
|
CROSSREFS
| Sequence in context: A101904 A022814 A000390 * A107660 A200665 A200466
Adjacent sequences: A000388 A000389 A000390 * A000392 A000393 A000394
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
