|
| |
|
|
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; internal format)
|
|
|
|
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 (rpropper(AT)stanford.edu), 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
| Sequence in context: A192726 A196429 A156415 * A156739 A090217 A062829
Adjacent sequences: A073833 A073834 A073835 * A073837 A073838 A073839
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 12 2002
|
|
|
EXTENSIONS
| More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 21 2006
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 02 2007
|
| |
|
|
