|
Search: id:A154288
|
|
|
| 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, -1, 2, -2, -2, 2, 46, -46, 314, 194102, -3229166, -663382, 2836767994, -11441854, -3736651874, 2414923738478, 236418596900006, -6139787306, -28607438174617066, 130216032333763994, -621533718480306419638
(list; table; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
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 this_sequence A084954 A049300 A084957
Adjacent sequences: A154285 A154286 A154287 this_sequence A154289 A154290 A154291
|
|
KEYWORD
|
sign,uned,tabl,frac
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2009
|
|
|
Search completed in 0.002 seconds
|
