|
|
A345686
|
|
a(n) = n! * Sum_{k=1..n} n/floor(n/k)^2.
|
|
1
|
|
|
1, 5, 38, 222, 1974, 14640, 154580, 1476720, 17753400, 205430400, 2924030592, 38559628800, 623916216000, 9701871379200, 172359487872000, 3007238402488320, 60362232844193280, 1161408374590464000, 25603215951785472000, 547592177551491072000, 12990145748633044992000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * n^2 * n!, where c = Sum_{j>-1} 1/(j^3*(j+1)) = zeta(3) - Pi^2/6 + 1.
|
|
MATHEMATICA
|
Table[n! * Sum[n/Floor[n/k]^2, {k, 1, n}], {n, 1, 25}]
Table[n*n!*(Sum[(Floor[n/j] - Floor[n/(j + 1)])/j^2, {j, 1, n}]), {n, 1, 25}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|