%I#8 2020年5月8日17:44:09

%S 3,23,71757306711383312452739273362110459107752663194272623，

%电话：5117886516250502670227，

%电话：346333715877457266794167447360009961677290857031143260452524087922704499517371299193770938241980425799

%N Swinging Wilson商（A163210）是素数。

%由Primo 4.2.0认证的C a（14）-a（18）素数。a（17）=A163210（569）=P1239，a（18）=A163/210（787）=P1812.-_Charles R Greathouse IV，2016年12月11日

%H G.C.Greubel，<a href=“/A163211/b163211.txt”>n的表，a（n）表示n=1..16</a>

%H Peter Luschny，《轨道系统研究》，2011年8月。

%H Peter Luschny，<a href=“http://www.luschny.de/math/primes/SwingingPrimes.html“>摆动底漆</a>

%商（252+1）/11=23是摆动威尔逊商和素数，所以23是一个成员。

%p A163211:=n->选择（i素数，A163210（n））；

%t sf[n]：=n/商[n，2]^2；a[n_]：=（p=素数[n]；（sf[p-1]+（-1）^楼层[（p+2）/2]）/p）；选择[PrimeQ][表[a[n]，{n，1，100}]（*_G.C.Greubel_，2016年12月10日*）

%o（PARI）sf（n）=n/（n\2）^2

%o表示质数（p=2,1e3，t=sf（p-1）\/p；if（isprime（t），print1（t“，”））\\_Charles R Greathouse IV_，2016年12月11日

%Y参考A163210、A163213、A163212、A163209、A007619。

%K nonn公司

%O 1,1号机组

%A _彼得·卢什尼，2009年7月24日