A089057 n! divided by prime whose index is the integer part of log(n).

3, 12, 60, 360, 2520, 13440, 120960, 1209600, 13305600, 159667200, 2075673600, 29059430400, 435891456000, 6974263296000, 118562476032000, 2134124568576000, 40548366802944000, 810967336058880000

Offset

3,1

Links

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

Example

7! = 5040, floor(log(7)) = 1, prime(1)=2 and 5040/2 = 2520.

Maple

f(n) = for(x=3, n, print1(x!/prime(floor(log(x)))", "))

Mathematica

Table[n!/Prime[Floor[Log[n]]], {n, 3, 20}] (* Harvey P. Dale, Jun 04 2019 *)

Crossrefs

Sequence in context: A070863 A180707 A062569 * A077134 A001710 A105752

Adjacent sequences: A089054 A089055 A089056 * A089058 A089059 A089060

Keyword

nonn

Author

Cino Hilliard, Dec 02 2003

Status

approved