%I #11 Oct 26 2012 10:34:32
%S 1,20,630,4480,36288,3326400,444787200,5811886080,81729648000,
%T 19760412672000,6082255020441600,115852476579840000,
%U 2322315553259520000,1077167364120207360000,24817936069329577574400,596585001666576384000000,14936720782466875392000000
%N n!/(n^2) when an integer.
%C Also see comments in A046022 = primes together with 1 and 4.
%H Alois P. Heinz, <a href="/A129906/b129906.txt">Table of n, a(n) for n = 1..150</a>
%F {n!/(n^2) when an integer} = {n!/(n^2) where n is a nonnegative integer other than 4 or a prime} = {A000142(n)/A000290(n) when an integer.
%t f[n_]:=If[PrimeQ[n]||n == 4,0,n!/n^2];Select[Table[f[n],{n,1,40}],#>0&] (* _Geoffrey Critzer_, Oct 26 2012 *)
%Y Cf. A000142, A000290, A046022.
%K easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Jun 09 2007
%E More terms from _Alois P. Heinz_, Oct 26 2012
|