|
|
A081021
|
|
Even order Taylor coefficients at x = 0 of exp( (sqrt(2)-sqrt(-2*x^2+2))/(-2*x^2+2)^(1/2) ), odd order coefficients being equal to zero.
|
|
2
|
|
|
1, 12, 375, 22155, 2113020, 295956045, 57148456365, 14541025999500, 4712328126180675, 1894168782984052575, 924528651354021413700, 538492713580088225984025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
In Maple notation: a(n)=subs(x=0, diff(exp((sqrt(2)-sqrt(-2*x^2+2))/(-2*x^2+2)^(1/2), x$2*n)), n=1, 2...
a(n) ~ 2^(2*n + 2/3) * exp(3*n^(1/3)/2^(2/3) - 2*n - 1) * n^(2*n - 1/3) / sqrt(3).
a(n) = 3*(2*n - 3)*(2*n - 1)*a(n-1) - (2*n - 3)*(2*n - 1)*(12*n^2 - 48*n + 47)*a(n-2) + 4*(n-3)*(n-2)*(2*n - 5)^2*(2*n - 3)*(2*n - 1)*a(n-3). (End)
|
|
MATHEMATICA
|
Rest[With[{nmax = 100}, CoefficientList[Series[Exp[(Sqrt[2] - Sqrt[2 - 2*x^2])/(Sqrt[2 - 2*x^2]) ], {x, 0, nmax}], x]*Range[0, nmax]!][[1 ;; -1 ;; 2]]] (* G. C. Greubel, Sep 11 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|