A030813 a(n) = floor(exp(16/23) * n!).
2, 4, 12, 48, 240, 1443, 10105, 80842, 727580, 7275803, 80033833, 960405999, 12485277998, 174793891980, 2621908379701, 41950534075224, 713159079278809, 12836863427018578, 243900405113352992, 4878008102267059852
Offset: 1
Examples
16/23 = 0.69565217391304347826... e^(16/23) = 2.00501626694078250734215635836..., so a(1) = 2. e^(16/23) * 2! = 4.01003253388156501468431271672..., so a(2) = 4. e^(16/23) * 3! = 12.03009760164469504405293815..., so a(3) = 12.
Crossrefs
Cf. A021027 (1/23).
Programs
-
Mathematica
Floor[E^(16/23) Range[20]!] (* Alonso del Arte, Mar 16 2020 *)