OFFSET
2,1
COMMENTS
Note that the primes are not necessarily increasing.
MATHEMATICA
nMax = 100; lst = {1}; numer = {1}; s = 1; i = 2; Do[While[ ! PrimeQ[Numerator[s + 1/i]], i++ ]; s = s + 1/i; AppendTo[lst, i]; AppendTo[numer, Numerator[s]]; i++, {n, 2, nMax}]; numer
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 14 2002
STATUS
approved