OFFSET
1,1
COMMENTS
A counterexample to the converse of Wolstenholme's theorem (CWT) must have a(n) = 1. No such counterexample is known and if CWT holds, then a(n) > 1 for all n. If the square of a prime p is a counterexample to CWT, that prime satisfies the Wolstenholme congruence modulo p^6 (Cf. McIntosh (1995), p. 387).
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
C. Helou and G. Terjanian, On Wolstenholme's theorem and its converse, Journal of Number Theory, Volume 128, Issue 3 (2008), 475-499.
R. J. McIntosh, On the converse of Wolstenholme's Theorem, Acta Arithmetica, 71 (1995), 381-389.
V. Trevisan and K. Weber, Testing the converse of Wolstenholme's theorem, Matematica Contemporanea, 21 (2001), 275-286.
Wikipedia, Wolstenholme's theorem
MATHEMATICA
Mod[Binomial[2#-1, #-1], #^3]&/@Select[Range[100], CompositeQ] (* Harvey P. Dale, May 03 2023 *)
PROG
(PARI) forcomposite(c=1, 100, print1(lift(Mod(binomial(2*c-1, c-1), c^3)), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Jun 23 2014
EXTENSIONS
Edited by Felix Fröhlich, May 27 2021
STATUS
approved