OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Harmonic Number
Eric Weisstein's World of Mathematics, Regular Prime
MATHEMATICA
n=1; Table[While[cnt=0; n++; p=Prime[n]; k=1; h=0; While[k<=(p-1)/2, h=h+1/k; If[Mod[Numerator[h], p]==0, cnt++ ]; k++ ]; cnt>0, ]; p, {100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 24 2004
STATUS
approved