OFFSET
1,4
COMMENTS
EXAMPLE
a(4) = 3 because 1/4 yields 1/1 + 1/2 + 1/3 + 1/4 = 25/12, but 3/4 yields 1/1 + 1/2 + 1/3 + 3/4 = 31/12.
MATHEMATICA
nMax = 100; lst = {1}; numer = {1}; s = 1; Do[k = 1; While[GCD[k, n] > 1 || ! PrimeQ[Numerator[s + k/n]], k++ ]; s = s + k/n; AppendTo[lst, k]; AppendTo[numer, Numerator[s]]; k++, {n, 2, nMax}]; lst
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
T. D. Noe, Oct 14 2002
STATUS
approved