A030807 a(n) = floor(exp(22/23) * n!).

2, 5, 15, 62, 312, 1873, 13117, 104937, 944441, 9444416, 103888585, 1246663020, 16206619263, 226892669691, 3403390045367, 54454240725881, 925722092339993, 16662997662119888, 316596955580277878, 6331939111605557573

Offset

1,1

Links

Table of n, a(n) for n=1..20.

Example

22/23 = 0.9565217391304347826...
e^(22/23) = 2.60262809201718959973592216154..., so a(1) = 2.
e^(22/23) * 2! = 5.20525618403437919947184432308..., so a(2) = 5.
e^(22/23) * 3! = 15.6157685521031375984155329692..., so a(3) = 15.

Mathematica

With[{c = Exp[22/23]}, Floor[c * #] & /@ (Range[20]!)] (* Harvey P. Dale, Aug 16 2014 *)

Crossrefs

Sequence in context: A030852 A030840 A030829 * A030837 A143872 A130756

Adjacent sequences: A030804 A030805 A030806 * A030808 A030809 A030810

Keyword

nonn,easy

Author

Simon Plouffe

Status

approved