OFFSET
1,2
MATHEMATICA
a = {1}; For[n = 2, n < 41, n++, k = a[[ -1]] + 1; While[ !PrimeQ[ k*Product[Prime[i], {i, 1, n}]^3 - 1], k++ ]; AppendTo[a, k]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jun 18 2006
EXTENSIONS
Edited by Stefan Steinerberger, Aug 13 2007
More terms from Amiram Eldar, Aug 28 2021
STATUS
approved