|
|
|
|
2927, 342889, 2760049, 5070049, 321039529, 1146272329, 9936508189, 14927726089, 37769930377, 79361849257, 222647590729, 246738487669, 259512888949, 636714780049, 818804190829, 1204024293601, 1265682003121
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|