|
|
A073836
|
|
Let C(n) = product of composite numbers between the n-th prime and (n+1)-th prime; a(n) = floor(C(n+1)/C(n)).
|
|
0
|
|
|
1, 120, 0, 280, 0, 513, 1276, 0, 1507968, 0, 0, 2168, 3424, 1, 0, 17873856, 0, 0, 35185150, 0, 8847, 12778, 0, 0, 11348, 0, 12662, 777455654403407438918, 0, 20121, 0, 192643714695223095, 0, 577325548, 1, 0, 31603, 1, 0, 1478997122921398080, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 02 2007
|
|
STATUS
|
approved
|
|
|
|