A073838 Product of primes p satisfying n <= p <= 2n.

2, 6, 15, 35, 35, 77, 1001, 143, 2431, 46189, 46189, 96577, 96577, 7429, 215441, 6678671, 6678671, 392863, 14535931, 765049, 31367009, 1348781387, 1348781387, 2756205443, 2756205443, 2756205443, 146078888479, 146078888479, 146078888479, 297194980009

Offset: 1

Author

Amarnath Murthy and Benoit Cloitre, Aug 12 2002

Keywords

• nonn

Comments

a(n) = A034386(2*n)/A034386(n-1); A179214(n) <= a(n). - Reinhard Zumkeller, Jul 05 2010

Examples

			a(7) = 1001 = 7*11*13 (product of primes between 7 and 14).
		

Links

• T. D. Noe, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A073837.

Programs

Maple

for n from 1 to 50 do l := 1:for j from n to 2*n do if isprime(j) then l := l*j:fi:od:a[n] := l:od:seq(a[j],j=1..50);

Mathematica

Table[Times @@ Select[Range[n, 2 n], PrimeQ], {n, 28}] (* Jayanta Basu, Aug 12 2013 *)

PARI

a(n)=prod(i=n,2*n,i^isprime(i))

Extensions

More terms from Sascha Kurz, Aug 14 2002

Missing a(29) inserted by Andrew Howroyd, Feb 23 2018