%I#2 2012年3月31日10:22:15

%S 11,31107571971号

%N素数p使得p^2除m-对于某个整数m<p为1。

%C数字n，这样n！-1可被正方形整除，参见A152219。

%C a（6）=4931[来自_Artur Jasinski，2008年11月30日]

%t aa={}；执行[如果[（Sqrt[n！-1]/.Sqrt[_]->1）>1，打印[n]；附加到[aa，（Sqrt[n！-1]/.Sqrt[_]->1）]，{n，1，1000}]；aa（*阿图尔·贾辛斯基*）

%粤A064237、A152219

%Y A152231，A152232[来自_Artur Jasinski2008年11月30日]

%K nonn公司

%O 1,1号机组

%A_Artur Jasinski，2008年11月29日