|
|
A011788
|
|
Number of n X n matrices whose determinant is 1 mod n.
|
|
1
|
|
|
0, 6, 5616, 660602880, 56653740000000000, 847972210819236925066444800, 35832085525362833262818017603275320524800, 454962949457868147194568283111215836246845930653666508800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (n^(n^2) / phi(n)) * Product_{primes p dividing n} (Product_{k=1..n} (1 - 1/p^k)) for n > 1, a(1)=0. - Sean A. Irvine, Jun 26 2018
|
|
MATHEMATICA
|
Join[{0}, Table[n^(n^2) / EulerPhi[n] * Product[QPochhammer[1/p, 1/p, n], {p, Select[Divisors[n], PrimeQ]}], {n, 2, 10}]] (* Vaclav Kotesovec, May 19 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Benjamin T. Love (benlove(AT)preston.polaristel.net)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|