editing
approved
editing
approved
1, 1, 3, 10, 37, 176, 979, 6658, 50873, 451180, 4376911, 47740694, 560586613, 7248848608, 99837660875, 1492197903466, 23571796088689, 399706304138708, 7121101849585543, 135049981967575870, 2678257990821099821, 56164666081871350984, 1226908363217557264003, 28188326528878836076178
reviewed
editing
proposed
reviewed
editing
proposed
a(n) = 1 + Sum_{k=12..n} (floor((k + 1)/2)! * n!)/((n - floor(k/2))!) ). - G. C. Greubel, Oct 26 2017
approved
editing
editing
approved
a(n) ~ n!. - Vaclav Kotesovec, Oct 09 2020
approved
editing
proposed
approved
editing
proposed
G. C. Greubel, <a href="/A123636/b123636.txt">Table of n, a(n) for n = 0..449</a>
a(n) = 1 + Sum_{k=1..n} (floor((k + 1)/2)! * n!)/((n - floor(k/2))!) ). - G. C. Greubel, Oct 26 2017
Join[{1}, Table[Sum[(Floor[(k + 1)/2]! * n!)/((n - Floor[k/2])!), {k, 1, n}], {n, 1, 50}]] (* G. C. Greubel, Oct 26 2017 *)
approved
editing