1,1

(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

Cf. A007408 = Wolstenholme numbers.

Sequence in context: A032008 A061368 A072982 this_sequence A080306 A036448 A128346

Adjacent sequences: A124784 A124785 A124786 this_sequence A124788 A124789 A124790

more,nonn

Alexander Adamchuk (alex(AT)kolmogorov.com), Nov 07 2006

a(5) from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Nov 10 2006