cp's OEIS Frontend

A061214 Product of composite numbers between the n-th and (n+1)st primes.

%I A061214 #43 Jul 02 2025 16:02:01
%S A061214 1,4,6,720,12,3360,18,9240,11793600,30,45239040,59280,42,91080,
%T A061214 311875200,549853920,60,1072431360,328440,72,2533330800,531360,
%U A061214 4701090240,60072730099200,970200,102,1157520,108,1367520,1063186156509747740870400000,2146560,43191973440
%N A061214 Product of composite numbers between the n-th and (n+1)st primes.
%H A061214 T. D. Noe, <a href="/A061214/b061214.txt">Table of n, a(n) for n = 1..2000</a>
%F A061214 A006530(a(n)) = A052248(n) for n > 1. - _Reinhard Zumkeller_, Jun 22 2011
%e A061214 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.
%p A061214 A061214 := proc(n)
%p A061214     local k ;
%p A061214     product(k,k=ithprime(n)+1..ithprime(n+1)-1) ;
%p A061214 end proc: # _R. J. Mathar_, Apr 23 2013
%t A061214 Table[Times@@Range[Prime[n]+1,Prime[n+1]-1],{n,30}] (* _Harvey P. Dale_, Jun 14 2011 *)
%t A061214 Times@@Range[#[[1]]+1,#[[2]]-1]&/@Partition[Prime[Range[40]],2,1] (* _Harvey P. Dale_, Apr 23 2022 *)
%o A061214 (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
%o A061214 (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
%o A061214 (Haskell)
%o A061214 a061214 n = a061214_list !! (n-1)
%o A061214 a061214_list = f a000040_list where
%o A061214    f (p:ps'@(p':ps)) = (product [p+1..p'-1]) : f ps'
%o A061214 -- _Reinhard Zumkeller_, Jun 22 2011
%o A061214 (Python)
%o A061214 from math import prod
%o A061214 from sympy import prime
%o A061214 def A061214(n): return prod(i for i in range(prime(n)+1,prime(n+1))) # _Chai Wah Wu_, Jul 10 2022
%Y A061214 Cf. A006530, A052248, A052297, A072472, A361760, A361761.
%Y A061214 Cf. A046933 and A054265 (number and sum of these composites).
%K A061214 nonn
%O A061214 1,2
%A A061214 _Amarnath Murthy_, Apr 21 2001
%E A061214 More terms from _James Sellers_, Apr 24 2001
%E A061214 Better definition from _T. D. Noe_, Jan 21 2008