OFFSET
1,1
MATHEMATICA
a = {335}; For[n = 2, n < 41, n++, k = a[[ -1]] + 1; While[ !PrimeQ[ k*Product[Prime[i], {i, 1, n}]^30 - 1], k++ ]; AppendTo[a, k]]; a
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Pierre CAMI, Jun 18 2006
EXTENSIONS
Edited and corrected by Stefan Steinerberger, Aug 13 2007
STATUS
approved