OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..100
FORMULA
If p prime, a(p) = (p-1)!. - Bernard Schott, Nov 15 2021
EXAMPLE
For n = 6, the divisors of 6 are 1,2,3,6; a(6) = (6-1)! * (6-2)! * (6-3)! * (6-6)! = 17280.
MAPLE
A135396 := proc(n) local dvs ; dvs := numtheory[divisors](n) minus {n} ; mul( (n-i)!, i=dvs) ; end: seq(A135396(n), n=1..30) ; # R. J. Mathar, Feb 19 2008
MATHEMATICA
Table[Product[(n - Divisors[n][[i]])!, {i, 1, Length[Divisors[n]]}], {n, 1, 20}] (* Stefan Steinerberger, Feb 19 2008 *)
Table[Times@@((n-Divisors[n])!), {n, 20}] (* Harvey P. Dale, Dec 10 2014 *)
PROG
(PARI) a(n)=my(s=1); fordiv(n, d, s*=(n-d)!); s \\ Charles R Greathouse IV, Oct 12 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Feb 17 2008
EXTENSIONS
Definition simplified by Stefan Steinerberger, Feb 19 2008
More terms from R. J. Mathar and Stefan Steinerberger, Feb 19 2008
STATUS
approved