|
|
A345726
|
|
a(n) = Product_{k=1..n} k^(floor(n/k)^2).
|
|
1
|
|
|
1, 2, 6, 192, 960, 4976640, 34836480, 2283043553280, 4993016251023360, 3195530400654950400000, 35150834407204454400000, 417877827219530751882239882035200000, 5432411753853899774469118466457600000, 213700126654516647665669790727613605478400000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
log(a(n)) ~ c * n^2, where c = -zeta'(2) = A073002.
|
|
MATHEMATICA
|
Table[Product[k^(Floor[n/k]^2), {k, 1, n}], {n, 1, 15}]
|
|
PROG
|
(PARI) a(n) = prod(k=1, n, k^((n\k)^2)); \\ Michel Marcus, Jun 26 2021
(Magma) [(&*[j^(Floor(n/j))^2: j in [1..n]]): n in [1..30]]; // G. C. Greubel, Feb 05 2024
(SageMath) [product(j^((n//j)^2) for j in range(1, n+1)) for n in range(1, 31)] # G. C. Greubel, Feb 05 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|