OFFSET
1,2
EXAMPLE
a(5) = 11*13 = 143.
MATHEMATICA
Do[k = 1; Do[If[PrimeQ[i], k = k*i], {i, Binomial[n, 2] + 1, Binomial[n, 2] + n}]; Print[k], {n, 1, 30}] (* Ryan Propper, Jun 22 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 03 2004
EXTENSIONS
More terms from Ryan Propper, Jun 22 2005
STATUS
approved