A062322 Factorials of nonsquarefree numbers, or A013929(n)!, (including 1).

1, 24, 40320, 362880, 479001600, 20922789888000, 6402373705728000, 2432902008176640000, 620448401733239439360000, 15511210043330985984000000, 10888869450418352160768000000

Offset: 0

Author

Jason Earls, Jul 05 2001

Keywords

• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 0..100

Crossrefs

Cf. A013929.

Programs

Mathematica

Select[Range[0,30],!SquareFreeQ[#]&]! (* Harvey P. Dale, Aug 27 2016 *)

PARI

for(n=0,38, if(issquarefree(n), n+1,print(n!)))

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

Extensions

Better name from Jon E. Schoenfield, Aug 09 2015