|
%I #2 Mar 31 2012 10:22:10
%S 3,5,5,9,11,13,15,15,19,21,23,25,27,25,31,33,35,37,39,41,43,45,47,49,
%T 51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,
%U 97,99,101,103,105,107,109,111,113,115,117,119,121,123,125,127,129,131,133
%N a(n) = number of monomials in n-th power of polynomial x^2-x-1
%C a(n)=Length[(x^2-x-1)^n]
%t a = {}; k = x^2 - x - 1; m = k; Do[AppendTo[a, Length[m]]; m = Expand[m*k], {n, 1, 100}]; a (*Artur Jasinski*)
%K nonn
%O 1,1
%A _Artur Jasinski_, Oct 06 2008
|
