%I #9 Aug 09 2015 07:43:22
%S 0,1,4,1,617,112,845,25376,2985,314,1597052,138874,1173486218,
%T 63368255819,4370224539,281949970,5377913733006,376453961310474,
%U 7345939461247630,572983277977315172,27950403803771471,1300018781570766
%N a(n) = floor((product of composites among next n numbers)/(product of primes among next n numbers)).
%C The products of primes in the denominators are in A068111 for n>=2. - _R. J. Mathar_, Jul 27 2007
%e a(3) = floor((4*6)/5) = 4.
%e a(4) = floor(6*8/(5*7)) = floor(48/35) = 1.
%e a(5) = floor(6*8*9*10/7) = floor(4320/7) = 617.
%p A094337 := proc(n) local nup,ndown,i ; nup := 0 ; ndown := 0 ; for i from n+1 to 2*n do if isprime(i) then if ndown = 0 then ndown :=i ; else ndown := ndown*i ; fi ; else if nup = 0 then nup := i ; else nup := nup*i ; fi ; fi ; od; floor(nup/ndown) ; end: seq(A094337(n),n=1..24) ; # _R. J. Mathar_, Jul 27 2007
%K nonn
%O 1,3
%A _Amarnath Murthy_, May 17 2004
%E Corrected and extended by _R. J. Mathar_, Jul 27 2007