A055637 (n-1)!/n or 0 if n does not divide (n-1)!..

1, 0, 0, 0, 0, 20, 0, 630, 4480, 36288, 0, 3326400, 0, 444787200, 5811886080, 81729648000, 0, 19760412672000, 0, 6082255020441600, 115852476579840000, 2322315553259520000, 0, 1077167364120207360000, 24817936069329577574400

Offset

1,6

References

Dave Wells, The Penguin Dictionary of Curious and Interesting Numbers (Revised Edition), Penguin Books, ISBN 0-14-02.6149-4, 1998, page 39.

Links

Table of n, a(n) for n=1..25.

Mathematica

Do[If[Mod[(n-1)!/n]==0, Print[(n-1)!/n, Print[0]], {n, 1, 30}]
Table[If[Divisible[(n-1)!, n], (n-1)!/n, 0], {n, 30}] (* Harvey P. Dale, May 04 2018 *)

Crossrefs

Sequence in context: A084029 A343329 A008426 * A086684 A221335 A298672

Adjacent sequences: A055634 A055635 A055636 * A055638 A055639 A055640

Keyword

nonn

Author

Robert G. Wilson v, Jun 07 2000

Status

approved