%I #4 Mar 31 2012 13:20:33

%S 3,11,17,89,2305777

%N Primes p such that p divides the Wolstenholme number A007408((p+1)/2).

%o (PARI) {s=0;h=1;forprime(p=3,2400000,q=(p+1)/2;s=s+sum(k=h,q,1/k^3);if(numerator(s)%p==0,print1(p,","));h=q+1)} - Klaus Brockhaus, Nov 10 2006

%Y Cf. A007408 = Wolstenholme numbers.

%K more,nonn

%O 1,1

%A _Alexander Adamchuk_, Nov 07 2006

%E a(5) from _Klaus Brockhaus_, Nov 10 2006