%I A104312
%S A104312 3,31,101,3823,2266366724843687556556015073508073201681
%N A104312 Prime coefficient of x^n in (x^3+x^2+x+1)^n for n in A104311.
%C A104312 a(6), which corresponds to n=649, is too large to include.
%t A104312 f=1; Do[f=Expand[f*(x^3+x^2+x+1)]; s=Coefficient[f, x, n]; If[PrimeQ[s], 
               Print[{n, s}]], {n, 1000}]
%Y A104312 Cf. A005725 (quadrinomial coefficients), A104314 (nontrivial prime pentanomial 
               coefficients).
%Y A104312 Sequence in context: A137185 A152417 A077547 this_sequence A107197 A096060 
               A119682
%Y A104312 Adjacent sequences: A104309 A104310 A104311 this_sequence A104313 A104314 
               A104315
%K A104312 more,nonn
%O A104312 1,1
%A A104312 T. D. Noe (noe(AT)sspectra.com), Mar 01 2005