|
|
A354299
|
|
a(n) is the denominator of Sum_{k=1..n} (-1)^(k+1) / (2*k-1)!!.
|
|
4
|
|
|
1, 3, 15, 105, 189, 10395, 135135, 2027025, 34459425, 130945815, 13749310575, 316234143225, 7905853580625, 12556355686875, 1238056670725875, 776918153694375, 6332659870762850625, 7642865361265509375, 8200794532637891559375, 63966197354575554163125, 13113070457687988603440625
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Denominators of coefficients in expansion of sqrt(Pi*x*exp(-x)/2) * erfi(sqrt(x/2)) / (1 - x).
|
|
EXAMPLE
|
1, 2/3, 11/15, 76/105, 137/189, 7534/10395, 97943/135135, 1469144/2027025, 24975449/34459425, ...
|
|
MAPLE
|
S:= 0: R:= NULL:
for n from 1 to 100 do
S:= S + (-1)^(n+1)/doublefactorial(2*n-1);
R:= R, denom(S);
od:
|
|
MATHEMATICA
|
Table[Sum[(-1)^(k + 1)/(2 k - 1)!!, {k, 1, n}], {n, 1, 21}] // Denominator
nmax = 21; CoefficientList[Series[Sqrt[Pi x Exp[-x]/2] Erfi[Sqrt[x/2]]/(1 - x), {x, 0, nmax}], x] // Denominator // Rest
Table[1/(1 + ContinuedFractionK[2 k - 1, 2 k, {k, 1, n - 1}]), {n, 1, 21}] // Denominator
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|