OFFSET
3,1
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n = 3..1000
Eric Weisstein's World of Mathematics, Harmonic Number
Eric Weisstein's World of Mathematics, Wolstenholme's Theorem
MATHEMATICA
nn=1000; t=Numerator[HarmonicNumber[Range[nn], 2]]; Table[p=Prime[n]; i=1; While[i<nn && Mod[t[[i]], p]>0, i++ ]; i, {n, 3, PrimePi[nn]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 09 2004
STATUS
approved