|
|
A034716
|
|
Dirichlet convolution of factorials with themselves.
|
|
1
|
|
|
1, 4, 12, 52, 240, 1464, 10080, 80736, 725796, 7258080, 79833600, 958006368, 12454041600, 174356602560, 2615348737440, 41845579937856, 711374856192000, 12804747412916160, 243290200817664000, 4865804016367800960, 102181884343418940480, 2248001455555375027200
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[Sum[d!*(n/d)!, {d, Divisors[n]}], {n, 1, 25}] (* Vaclav Kotesovec, Jan 28 2019 *)
|
|
PROG
|
(PARI) a(n)=sumdiv(n, d, (d!) * (n/d)! ); /* Joerg Arndt, Oct 07 2012 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|