

A104312


Prime coefficient of x^n in (x^3+x^2+x+1)^n for n in A104311.


2




OFFSET

1,1


COMMENTS

a(6), which corresponds to n=649, is too large to include.


LINKS

Table of n, a(n) for n=1..5.


MATHEMATICA

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}]


CROSSREFS

Cf. A005725 (quadrinomial coefficients), A104314 (nontrivial prime pentanomial coefficients).
Sequence in context: A294973 A307711 A077547 * A326736 A107197 A096060
Adjacent sequences: A104309 A104310 A104311 * A104313 A104314 A104315


KEYWORD

nonn


AUTHOR

T. D. Noe, Mar 01 2005


STATUS

approved



