OFFSET
0,3
FORMULA
E.g.f.: ((1 -sqrt(1 -2*z -z^2))*(1 -z -sqrt(1 -2*z -z^2)))/(z*(1 -2*z -z^2)).
a(n) = Sum_{k} A336309(n,k)*k, for n>=1.
a(n) ~ n!/2 * (sqrt(2) + 1)^(n+1) * (1 - sqrt((10-sqrt(2))/(Pi*n))). - Vaclav Kotesovec, Jul 17 2020
MATHEMATICA
nn = 20; Range[0, nn]! CoefficientList[ Series[-(((-1 + Sqrt[1 - 2 z - z^2]) (-1 + z + Sqrt[1 - 2 z - z^2]))/(z (-1 + 2 z + z^2))), {z, 0, nn}], z]
PROG
(PARI) my(z='z+O('z^25)); concat([0, 0], Vec(serlaplace(((1 -sqrt(1 -2*z -z^2))*(1 -z -sqrt(1 -2*z -z^2)))/(z*(1 -2*z -z^2))))) \\ Joerg Arndt, Jul 18 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jul 17 2020
STATUS
approved