OFFSET
1,1
COMMENTS
a(534) = 624 is particularly large.
MATHEMATICA
a[n_] := Block[{}, For[s = n; k = 1, ! PrimeQ[s - 1], s *= n + k; k++ ]; k]; Table[a[n], {n, 1, 300}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Cheng Zhang (cz1(AT)rice.edu), Jan 26 2010, Mar 03 2010
STATUS
approved