OFFSET
0,3
COMMENTS
"Bernoulli numbers" for x/[1-Hermite(3,x)].
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..317
MAPLE
G:=x/(1+12*x-8*x^3): Gser:=series(G, x=0, 20): 0, seq(n!*coeff(Gser, x^n), n=1..16); # yields the signed sequence
MATHEMATICA
g[x_] = x/(-1 + HermiteH[3, x]) h[x_, n_] = Dt[g[x], {x, n}] a[x_] = Table[h[x, n], {n, 0, 50}]; b = a[0]
With[{nmax = 50}, CoefficientList[Series[x/(1 + 12*x - 8*x^3), {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, Jul 12 2018 *)
PROG
(PARI) x='x+O('x^50); concat([0], Vec(serlaplace(x/(1 + 12*x - 8*x^3)))) \\ G. C. Greubel, Jul 12 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula, Jun 28 2005
STATUS
approved