|
|
A163212
|
|
Wilson quotients (A007619) which are primes.
|
|
5
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
J. Sondow, Lerch Quotients, Lerch Primes, Fermat-Wilson Quotients, and the Wieferich-non-Wilson Primes 2, 3, 14771, Combinatorial and Additive Number Theory, CANT 2011 and 2012, Springer Proc. in Math. & Stat., vol. 101 (2014), pp. 243-255.
|
|
FORMULA
|
|
|
EXAMPLE
|
The quotient (720+1)/7 = 103 is a Wilson quotient and a prime, so 103 is a member.
|
|
MAPLE
|
A163212 := n -> select(isprime, WQ(factorial, p->1, n)):
|
|
MATHEMATICA
|
|
|
PROG
|
(PARI) forprime(p=2, 1e4, a=((p-1)!+1)/p; if(ispseudoprime(a), print1(a, ", "))) \\ Felix Fröhlich, Aug 03 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|