|
Search: id:A154289
|
|
|
| A154289 |
|
Denominator 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
2
|
|
| 1, 3, 45, 945, 14175, 93555, 638512875, 273648375, 44405668125, 194896477400625, 32157918771103125, 201717854109646875, 3028793579456347828125, 698952364489926421875, 564653660170076273671875
(list; table; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
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]]) ;
Denominator[CoefficientList[Series[q[x], {x, 0, 30}], x]]
|
|
CROSSREFS
|
Sequence in context: A132303 A008931 A036278 this_sequence A012827 A012769 A009088
Adjacent sequences: A154286 A154287 A154288 this_sequence A154290 A154291 A154292
|
|
KEYWORD
|
nonn,uned,tabl,frac
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2009
|
|
|
Search completed in 0.002 seconds
|
