OFFSET
1,1
COMMENTS
MATHEMATICA
f=1; Do[f=Expand[f*(x^4+x^3+x^2+x+1)]; s=Coefficient[f, x, 2n]; If[PrimeQ[s], Print[{n, s}]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 01 2005
STATUS
approved