OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..2000
FORMULA
EXAMPLE
a(4) = 8 * 9 * 10 = 720. 7 is the fourth prime and 11 is the fifth prime. a(5) = 12 as 11 and 13 both are primes.
MAPLE
A061214 := proc(n)
local k ;
product(k, k=ithprime(n)+1..ithprime(n+1)-1) ;
end proc: # R. J. Mathar, Apr 23 2013
MATHEMATICA
Table[Times@@Range[Prime[n]+1, Prime[n+1]-1], {n, 30}] (* Harvey P. Dale, Jun 14 2011 *)
Times@@Range[#[[1]]+1, #[[2]]-1]&/@Partition[Prime[Range[40]], 2, 1] (* Harvey P. Dale, Apr 23 2022 *)
PROG
(PARI) { n=0; q=2; forprime (p=3, prime(2001), a=1; for (i=q + 1, p - 1, a*=i); q=p; write("b061214.txt", n++, " ", a) ) } \\ Harry J. Smith, Jul 19 2009
(PARI) v=primes(100); for(i=1, #v-1, v[i]=prod(j=v[i]+1, v[i+1]-1, j)); vecextract(v, "1..-2") \\ Charles R Greathouse IV, Feb 27 2012
(Haskell)
a061214 n = a061214_list !! (n-1)
a061214_list = f a000040_list where
f (p:ps'@(p':ps)) = (product [p+1..p'-1]) : f ps'
-- Reinhard Zumkeller, Jun 22 2011
(Python)
from math import prod
from sympy import prime
def A061214(n): return prod(i for i in range(prime(n)+1, prime(n+1))) # Chai Wah Wu, Jul 10 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 21 2001
EXTENSIONS
More terms from James A. Sellers, Apr 24 2001
Better definition from T. D. Noe, Jan 21 2008
STATUS
approved