OFFSET
1,2
EXAMPLE
a(4) = floor(14*15*16/12) = 280.
MATHEMATICA
c[n_] := Times @@ Select[Range[Prime[n], Prime[n + 1]], PrimeQ[ # ]==False&]; Table[Floor[c[n + 1]/c[n]], {n, 2, 30}] (* Ryan Propper, Jul 21 2006 *)
PROG
(PARI) C=4; for(n=3, 100, Cp1=1; for(k=prime(n)+1, prime(n+1)-1, Cp1*=k); print1(floor(Cp1/C)", "); C=Cp1) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), May 02 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 12 2002
EXTENSIONS
More terms from Ryan Propper, Jul 21 2006
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 02 2007
STATUS
approved