|
| |
|
|
A154288
|
|
Numerator of coefficient expansion of: p(x)= 1/Sum[x^(n - 1)/(2*n - 1)!!, {n, 1, Infinity}] =(Sqrt[2/Pi]*Sqrt[x])/ (E^(x/2)*Erf[Sqrt[x]/Sqrt[2]].
|
|
0
| |
|
|
1, -1, 2, -2, -2, 2, 46, -46, 314, 194102, -3229166, -663382, 2836767994, -11441854, -3736651874, 2414923738478, 236418596900006, -6139787306, -28607438174617066, 130216032333763994, -621533718480306419638
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| I owe the improved coding in Mathematica to Bob Hanlon.
|
|
|
FORMULA
| p(x)= 1/Sum[x^(n - 1)/(2*n - 1)!!, {n, 1, Infinity}] =(Sqrt[2/Pi]*Sqrt[x])/ (E^(x/2)*Erf[Sqrt[x]/Sqrt[2]].
|
|
|
MATHEMATICA
| q[x_] = (Sqrt[2/Pi]*Sqrt[x])/ (E^(x/2)*Erf[Sqrt[x]/Sqrt[2]]) ;
Numerator[CoefficientList[Series[q[x], {x, 0, 30}], x]]
|
|
|
CROSSREFS
| Sequence in context: A167394 A029627 A075182 * A084954 A049300 A084957
Adjacent sequences: A154285 A154286 A154287 * A154289 A154290 A154291
|
|
|
KEYWORD
| sign,uned,tabl,frac
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2009
|
| |
|
|
