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 A334130 #8 Feb 16 2025 08:34:00 %S A334130 0,1,3,6,10,15,18,21,28,30,36,45,55,60,63,66,78,84,90,91,105,108,120, %T A334130 126,135,136,150,153,165,168,171,180,190,198,210,216,231,234,253,270, %U A334130 273,276,280,300,315,325,330,351,360,378,396,406,408,420,435,450 %N A334130 Numbers that can be written as a product of distinct triangular numbers. %H A334130 Robert Israel, <a href="/A334130/b334130.txt">Table of n, a(n) for n = 1..10000</a> %H A334130 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TriangularNumber.html">Triangular Number</a> %H A334130 <a href="/index/Pol#polygonal_numbers">Index to sequences related to polygonal numbers</a> %p A334130 N:= 1000: # for all terms <= N %p A334130 S:= {0,1}: %p A334130 for i from 2 do %p A334130 t:= i*(i+1)/2; %p A334130 if t > N then break fi; %p A334130 S:= S union select(`<=`,map(`*`,S,t),N) %p A334130 od: %p A334130 sort(convert(S,list)); # _Robert Israel_, Apr 21 2020 %Y A334130 Cf. A000217, A006472, A054731, A085780, A085782, A334129. %K A334130 nonn %O A334130 1,3 %A A334130 _Ilya Gutkovskiy_, Apr 14 2020