This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093457 #15 Jan 18 2025 17:00:05
%S A093457 1,6,5,7,143,323,23,899,65231,2491,3599,347261,583573,1009091,1317919,
%T A093457 16637,428448457,4273697,5605027,1445140189,2445956099,3368562317,
%U A093457 4927316309,6454166203,9473323417,13508676341,17347785757,8989229423381
%N A093457 Product of primes in the range [T(n-1) + 1, T(n - 1) + n], where T(n) is the n-th triangular number.
%H A093457 Harvey P. Dale, <a href="/A093457/b093457.txt">Table of n, a(n) for n = 1..1000</a>
%e A093457 a(5) = 11*13 = 143.
%t A093457 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 *)
%t A093457 Join[{1,6},Table[With[{t=(n(n+1))/2},Times@@Select[Range[t+1,t+n],PrimeQ]],{n,2,30}]] (* _Harvey P. Dale_, Jan 18 2025 *)
%Y A093457 Cf. A093455, A093456.
%K A093457 nonn
%O A093457 1,2
%A A093457 _Amarnath Murthy_, Apr 03 2004
%E A093457 More terms from _Ryan Propper_, Jun 22 2005