|
%I #14 Dec 15 2017 17:35:09
%S 1,24,40320,362880,479001600,20922789888000,6402373705728000,
%T 2432902008176640000,620448401733239439360000,
%U 15511210043330985984000000,10888869450418352160768000000
%N Factorials of nonsquarefree numbers, or A013929(n)!, (including 1).
%H Harry J. Smith, <a href="/A062322/b062322.txt">Table of n, a(n) for n = 0..100</a>
%t Select[Range[0,30],!SquareFreeQ[#]&]! (* _Harvey P. Dale_, Aug 27 2016 *)
%o (PARI) for(n=0,38, if(issquarefree(n), n+1,print(n!)))
%o (PARI) { n=-1; for (m=0, 10^9, if (m>0, f*=m, f=1); if (!issquarefree(m), write("b062322.txt", n++, " ", f); if (n==100, break)); ) } \\ _Harry J. Smith_, Aug 04 2009
%Y Cf. A013929.
%K easy,nonn
%O 0,2
%A _Jason Earls_, Jul 05 2001
%E Better name from _Jon E. Schoenfield_, Aug 09 2015
|
