OFFSET
0,2
FORMULA
a(n) = A065547(n+3, 3), n>=0.
MATHEMATICA
col = 4; nmax = 16; h[n_, x_] := Sum[c[k]*x^k, {k, 0, n}]; eq[n_] := SolveAlways[h[n, x*(x - 1)] == EulerE[2*n, x], x]; row[n_] := Table[c[k], {k, 0, n}] /. eq[n] // First; A065547 = Table[row[n], {n, 0, nmax + col}]; a[n_] := A065547[[n + col, col]]; Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, Oct 02 2013 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Wolfdieter Lang, Jun 11 2004
STATUS
approved