Wolstenholme Number

Author

Eric W. Weisstein
September 29, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/WolstenholmeNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/WolstenholmeNumber.html.

©2007 Wolfram Research, Inc. except for portions noted otherwise

Sum

Sum[(1/(k^2)),{k,n}]

Values

Table[HarmonicNumber[n,2],{n,10}]

Numerator[%]

Prime

l=Numerator[HarmonicNumber[Range[10^4],2]];//Timing

Flatten[Position[l,_?PrimeQ]]//Timing

Select[Take[l,100],PrimeQ]//Timing