|
Search: id:A078634
|
|
|
| A078634 |
|
Expansion of exp( 1 - x - sqrt( 1 - 4x + x^2 )). |
|
+0
1
|
|
| 1, 1, 4, 28, 289, 3991, 69391, 1458199, 35976298, 1019869624, 32674379941, 1167655730341, 46053354678409, 1987219627288273, 93128105830564624, 4710372032469481876, 255762372971187607501, 14838749685456807409159
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Moments of a probability density function.
|
|
FORMULA
|
E.g.f.: exp( 1 - x - sqrt( 1 - 4x + x^2 )).
|
|
MATHEMATICA
|
Table[n!, {n, 0, 17}]* CoefficientList[ Series[ Exp[1 - x - Sqrt[1 - 4x + x^2]], {x, 0, 17}], x]
|
|
PROGRAM
|
(PARI) {a(n)=if(n<0, 0, n!*polcoeff( exp(1-x-sqrt(1-4*x+x^2+x*O(x^n))), n))} /* Michael Somos Sep 20 2006 */
|
|
CROSSREFS
|
Adjacent sequences: A078631 A078632 A078633 this_sequence A078635 A078636 A078637
Sequence in context: A071212 A090353 A076729 this_sequence A091485 A112938 A007152
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Scott Peters (speters(AT)pinnaclesys.com), Dec 12 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Benoit Cloitre (benoit7848c(AT)orange.fr), Dec 13 2002
|
|
|
Search completed in 0.002 seconds
|
