OFFSET
1,1
MATHEMATICA
Select[Table[CoefficientList[Expand[(x-Prime[n])*(x-Prime[n+1])*(x-Prime[n+2])* (x-Prime[n+3])*(x-Prime[n+4])], x][[2]], {n, 1, 130}], PrimeQ[ # ]&]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Artur Jasinski, Jan 16 2007
EXTENSIONS
Edited by Stefan Steinerberger, Jul 18 2007
STATUS
approved