OFFSET
0,2
COMMENTS
MATHEMATICA
max = 27; p[0] = 1; p[n_] := (1+x)*((1+x)^(n-1)+x^(n-1))/2; t = Table[Coefficient[p[n], x, k], {n, 0, max+2}, {k, 0, max+2}]; a[n_] := Inverse[t][[All, 2]][[n+2]] // Numerator; Table[a[n], {n, 0, max}] (* Jean-François Alcover, Dec 16 2013 *)
PROG
(PARI) lista(n) = {m = matrix(n, n); m[1, 1] = 1; for (i=2, n, pol = (1+x)*((1+x)^(i-2)+x^(i-2))/2; for (j=1, n, m[i, j] = polcoeff(pol, j-1, x); ); ); m = 1/m; for (i=2, n, print1(numerator(m[i, 2]), ", "); ); print(); } \\ Michel Marcus, Aug 16 2013
CROSSREFS
KEYWORD
sign
AUTHOR
Paul Curtz, Aug 06 2008
EXTENSIONS
Edited by Michel Marcus, Aug 16 2013
STATUS
approved