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

%I #5 Jun 04 2019 19:12:08

%S 3,12,60,360,2520,13440,120960,1209600,13305600,159667200,2075673600,

%T 29059430400,435891456000,6974263296000,118562476032000,

%U 2134124568576000,40548366802944000,810967336058880000

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

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

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

%t Table[n!/Prime[Floor[Log[n]]],{n,3,20}] (* _Harvey P. Dale_, Jun 04 2019 *)

%K nonn

%O 3,1

%A _Cino Hilliard_, Dec 02 2003