OFFSET
1,1
COMMENTS
a(n)=Length[(x^2-x-1)^n]
MATHEMATICA
a = {}; k = x^2 - x - 1; m = k; Do[AppendTo[a, Length[m]]; m = Expand[m*k], {n, 1, 100}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 06 2008
STATUS
approved