A109819 Product of primes between n and n^2.

1, 6, 105, 5005, 37182145, 6685349671, 20496326086283047, 558516101711461766587, 15322117939717490037614688353, 10978895066407230594062391177770267, 150524069716274322800691458531160297587022319, 4335344870389259769484516507207766258600144871515339

Offset

1,2

Links

Table of n, a(n) for n=1..12.

Example

a(3) = 105 because 3, 5 and 7 are the A073882(3) = 3 primes in the interval from 3 to 3^2 inclusive and 3 * 5 * 7 = 105.

Mathematica

Join[{1}, Table[Product[Prime[i], {i, If[PrimeQ[n], PrimePi[n], PrimePi[n]+1], PrimePi[n^2]}], {n, 2, 10}]] (* James C. McMahon, Apr 01 2024 *)

Prog

(PARI) for(n=1, 15, print1(prod(k=n, n^2, if(isprime(k), k, 1)), ", "))

Crossrefs

Cf. A109818 (sum of same primes), A073882 (number of primes between n and n^2).

Sequence in context: A013294 A013300 A330769 * A162130 A048707 A259156

Adjacent sequences: A109816 A109817 A109818 * A109820 A109821 A109822

Keyword

easy,nonn

Author

Rick L. Shepherd, Jul 02 2005

Extensions

More terms from Michel Marcus, Apr 02 2024

Status

approved