A127490 Primes in A127489.

2927, 342889, 2760049, 5070049, 321039529, 1146272329, 9936508189, 14927726089, 37769930377, 79361849257, 222647590729, 246738487669, 259512888949, 636714780049, 818804190829, 1204024293601, 1265682003121

Offset: 1

Author

Artur Jasinski, Jan 16 2007

Keywords

• nonn
• less

Crossrefs

Cf. A127489.

Programs

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[ # ]&]

Extensions

Edited by Stefan Steinerberger, Jul 18 2007