OFFSET
0,3
COMMENTS
x^2/(1 - x - x^2 - x^3) is similar to the polynomial: -(x/(x^3 + x^2 + x - 1)) but not the same. As the last is machine derived, it is probably more correct than the one quoted presently in A000073.
FORMULA
(*Source : A000073*) g[x_] = x^2/(1 - x - x^2 - x^3); dg[x_] = D[g[x], {x, 1}]; w[n_] := InverseZTransform[dg[x], x, n] // ToRadicals; a(n) =Abs[w[n]]^2
MATHEMATICA
(*Source : A000073*) g[x_] = x^2/(1 - x - x^2 - x^3); dg[x_] = D[g[x], {x, 1}]; w[n_] := InverseZTransform[dg[x], x, n] // ToRadicals; Table[Abs[Floor[N[w[n]]]]^2, {n, 1, 25}]
CROSSREFS
KEYWORD
nonn,uned,obsc
AUTHOR
Roger L. Bagula, Mar 19 2006
STATUS
approved