OFFSET
1,1
MATHEMATICA
a[1] = 4; a[n_] := a[n] = Block[{k = 2}, While[ !PrimeQ[ k*a[n - 1] - 1] || !PrimeQ[ k*a[n - 1] + 1], k++ ]; k*a[n - 1]]; Table[ a[n], {n, 1, 17}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 09 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jun 15 2003
STATUS
approved