|
%I #8 Jan 03 2024 07:06:59
%S 1,6,5,7,143,323,23,899,65231,2491,3599,347261,583573,1009091,1317919,
%T 16637,428448457,4273697,5605027,1445140189,2445956099,3368562317,
%U 4927316309,6454166203,9473323417,13508676341,17347785757,8989229423381
%N Product of primes in the range [T(n-1) + 1, T(n - 1) + n], where T(n) is the n-th triangular number.
%e a(5) = 11*13 = 143.
%t 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 *)
%Y Cf. A093455, A093456.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Apr 03 2004
%E More terms from _Ryan Propper_, Jun 22 2005
|
