|
|
A163211
|
|
Swinging Wilson quotients (A163210) which are primes.
|
|
3
|
|
|
3, 23, 71, 757, 30671, 1383331, 245273927, 3362110459, 107752663194272623, 5117886516250502670227, 34633371587745726679416744736000996167729085703, 114326045625240879227044995173712991937709388241980425799
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
The quotient (252+1)/11 = 23 is a swinging Wilson quotient and a prime, so 23 is a member.
|
|
MAPLE
|
|
|
MATHEMATICA
|
sf[n_] := n!/Quotient[n, 2]!^2; a[n_] := (p = Prime[n]; (sf[p - 1] + (-1)^Floor[(p + 2)/2])/p); Select[PrimeQ][Table[a[n], {n, 1, 100}]] (* G. C. Greubel, Dec 10 2016 *)
|
|
PROG
|
(PARI) sf(n)=n!/(n\2)!^2
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|