[go: up one dir, main page]

login
A124787
Primes p such that p divides the Wolstenholme number A007408((p+1)/2).
2
3, 11, 17, 89, 2305777
OFFSET
1,1
PROG
(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
CROSSREFS
Cf. A007408 = Wolstenholme numbers.
Sequence in context: A061368 A145701 A072982 * A080306 A128346 A128031
KEYWORD
more,nonn
AUTHOR
Alexander Adamchuk, Nov 07 2006
EXTENSIONS
a(5) from Klaus Brockhaus, Nov 10 2006
STATUS
approved