A030871 a(n) = floor( exp(7/19)*n! ).

1, 2, 8, 34, 173, 1040, 7285, 58280, 524525, 5245250, 57697759, 692373112, 9000850463, 126011906488, 1890178597320, 30242857557129, 514128578471206, 9254314412481710, 175831973837152494, 3516639476743049893

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Example

[exp(7/19)*3!] = [6*1.4454505...] = [8.672703129655...] = 8. Thus, a(3) = 8. - Derek Orr, Jul 27 2014

Mathematica

Floor[Exp[7/19]Range[20]!] (* Harvey P. Dale, Jul 27 2014 *)

Prog

(PARI)
a(n)=return(floor(n!*exp(7/19)))
vector(100, n, a(n)) \\ Derek Orr, Jul 27 2014

Crossrefs

Cf. A000142.

Sequence in context: A030894 A030919 A030944 * A030960 A121894 A061370

Adjacent sequences: A030868 A030869 A030870 * A030872 A030873 A030874

Keyword

nonn,easy

Author

Simon Plouffe

Status

approved