|
| |
|
|
A070070
|
|
Rounded value of n*L_n(-1) where L is the Laguerre polynomial.
|
|
0
| |
|
|
0, 2, 7, 17, 35, 64, 111, 182, 286, 436, 647, 938, 1336, 1871, 2583, 3520, 4741, 6320, 8347, 10930, 14199, 18312, 23460, 29869, 37808, 47600, 59624, 74331, 92250, 114006, 140329, 172077, 210249, 256010, 310717, 375943, 453513, 545538, 654453
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
|
MAPLE
| a := n->round(expand(n*LaguerreL(n, -1)));
|
|
|
MATHEMATICA
| a[n_] := Round[n*LaguerreL[n, 0, -1]]
|
|
|
PROG
| (PARI) a(n)=if(n<0, 0, round(n*polcoeff(exp(x/(1-x)+x*O(x^n))/(1-x), n)))
|
|
|
CROSSREFS
| Sequence in context: A045947 A145066 A014148 * A033937 A116576 A086717
Adjacent sequences: A070067 A070068 A070069 * A070071 A070072 A070073
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Karol A. Penson (penson(AT)lptl.jussieu.fr), Apr 19 2002
|
|
|
EXTENSIONS
| Additional comments from Michael Somos, Dec 04 2002
|
| |
|
|
