|
|
A062322
|
|
Factorials of nonsquarefree numbers, or A013929(n)!, (including 1).
|
|
1
|
|
|
1, 24, 40320, 362880, 479001600, 20922789888000, 6402373705728000, 2432902008176640000, 620448401733239439360000, 15511210043330985984000000, 10888869450418352160768000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|