This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A094337 #9 Aug 09 2015 07:43:22 %S A094337 0,1,4,1,617,112,845,25376,2985,314,1597052,138874,1173486218, %T A094337 63368255819,4370224539,281949970,5377913733006,376453961310474, %U A094337 7345939461247630,572983277977315172,27950403803771471,1300018781570766 %N A094337 a(n) = floor((product of composites among next n numbers)/(product of primes among next n numbers)). %C A094337 The products of primes in the denominators are in A068111 for n>=2. - _R. J. Mathar_, Jul 27 2007 %e A094337 a(3) = floor((4*6)/5) = 4. %e A094337 a(4) = floor(6*8/(5*7)) = floor(48/35) = 1. %e A094337 a(5) = floor(6*8*9*10/7) = floor(4320/7) = 617. %p A094337 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 A094337 nonn %O A094337 1,3 %A A094337 _Amarnath Murthy_, May 17 2004 %E A094337 Corrected and extended by _R. J. Mathar_, Jul 27 2007