|
| |
|
|
A308943
|
|
a(n) = Product_{d|n} binomial(n,d).
|
|
1
|
|
|
|
1, 2, 3, 24, 5, 1800, 7, 15680, 756, 113400, 11, 79693891200, 13, 4372368, 20495475, 44972928000, 17, 2028339316523520, 19, 52737518268864000, 3247700400, 3585005424, 23, 38135556819759802035135799296, 1328250, 87885070000, 370142004375, 10293527616645873600000, 29
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Seiichi Manyama, Table of n, a(n) for n = 1..419
|
|
|
MATHEMATICA
|
Table[Product[Binomial[n, d], {d, Divisors[n]}], {n, 1, 29}]
|
|
|
PROG
|
(PARI) a(n) = my(p=1); fordiv(n, d, p *= binomial(n, d)); p; \\ Michel Marcus, Jul 02 2019
|
|
|
CROSSREFS
|
Cf. A001142, A008578 (fixed points), A056045, A098710, A135396.
Sequence in context: A037277 A001783 A095996 * A061098 A160630 A119619
Adjacent sequences: A308940 A308941 A308942 * A308944 A308945 A308946
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Ilya Gutkovskiy, Jul 01 2019
|
|
|
STATUS
|
approved
|
| |
|
|
