|
%I #2 Mar 31 2012 10:22:15
%S 11,31,107,571,971
%N Primes p such that p^2 divides m!-1 for some integer m<p.
%C Numbers n such that n! - 1 is divisible by a square see A152219.
%C a(6)=4931 [From _Artur Jasinski_, Nov 30 2008]
%t aa = {}; Do[If[(Sqrt[n! - 1] /. Sqrt[_] -> 1) > 1, Print[n]; AppendTo[aa, (Sqrt[n! - 1] /. Sqrt[_] -> 1)], {n, 1, 1000}]; aa (*Artur Jasinski*)
%Y A064237, A152219
%Y A152231, A152232 [From _Artur Jasinski_, Nov 30 2008]
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 29 2008
|
