|
|
A062359
|
|
a(n) = floor(n!/sigma(n)).
|
|
1
|
|
|
1, 0, 1, 3, 20, 60, 630, 2688, 27913, 201600, 3326400, 17107200, 444787200, 3632428800, 54486432000, 674928706064, 19760412672000, 164163428352000, 6082255020441600, 57926238289920000, 1596591942865920000, 31222242438266880000, 1077167364120207360000, 10340806695553990656000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
EXAMPLE
|
a(7) = 630 because floor(7!/sigma(7)) = floor(5040/8) = floor(630) = 630.
|
|
MAPLE
|
with(numtheory): seq(floor(factorial(n)/sigma(n)), n=1..25); # Muniru A Asiru, Jun 29 2018
|
|
MATHEMATICA
|
Table[Floor[n!/DivisorSigma[1, n]], {n, 25}] (* Harvey P. Dale, Mar 23 2011 *)
|
|
PROG
|
(PARI) a(n)=n!\sigma(n);
(Magma) [Floor(Factorial(n)/DivisorSigma(1, n)): n in [1..25]]; // Vincenzo Librandi, Jun 29 2018
(GAP) List([1..25], n->Int(Factorial(n)/Sigma(n))); # Muniru A Asiru, Jun 29 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|