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

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

Offset

0,2

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A013929.

Sequence in context: A272095 A188952 A258901 * A100733 A158664 A125048

Adjacent sequences: A062319 A062320 A062321 * A062323 A062324 A062325

Keyword

easy,nonn

Author

Jason Earls, Jul 05 2001

Extensions

Better name from Jon E. Schoenfield, Aug 09 2015

Status

approved