OFFSET
1,1
MATHEMATICA
f[n_] := Module[{a, b, i = 1}, a = Prime[n]; b = Prime[n + 1]; While[a/b >= 1 - 1/i, i = i + 1]; i]; Table[f[i], {i, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Oct 06 2005
STATUS
approved