%I A145289
%S A145289 4,7,10,13,16,19,22,25,28,31,34,37,40,43,46,49,52,55,58,61,64,67,70,73,
%T A145289 76,79,82,85,88,91,94,97,100,103,106,109,112,115,118,121,124,127,130,
%U A145289 133,136,139,142,145,148,151,154,157,160,163,166,169,172,175,178,181
%N A145289 a(n) = number of monomials in n-th power of polynomial x^3+x^2+x+1
%C A145289 a(n)=Length[(x^4+x^3+x^2+x+1)^n]
%F A145289 a(n) = 3n+1 = A112414(n-2) = A016777(n). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Oct 11 2008]
%t A145289 a = {}; k = x^3 + x^2 + x + 1; m = k; Do[AppendTo[a, Length[m]]; m = 
               Expand[m*k], {n, 1, 100}]; a (*Artur Jasinski*)
%Y A145289 Sequence in context: A026314 A070300 A112335 this_sequence A016777 A143460 
               A143459
%Y A145289 Adjacent sequences: A145286 A145287 A145288 this_sequence A145290 A145291 
               A145292
%K A145289 nonn
%O A145289 1,1
%A A145289 Artur Jasinski (grafix(AT)csl.pl), Oct 06 2008