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 A357590 #17 Jan 11 2025 16:25:57 %S A357590 3570,8778,9870,12090,13530,20706,20910,21945,24090,24310,26565,33670, %T A357590 40470,40755,47586,54285,57630,57970,63546,66430,69006,72390,76245, %U A357590 87990,88410,91806,92235,94395,94830,98790,121278,130305,132870,133386,141778,148785,154290,159330,163878,167910 %N A357590 Triangular numbers which are products of five distinct primes. %C A357590 A squarefree subsequence of triangular numbers (T(n) = n*(n+1)/2). %e A357590 3570 = 2*3*5*7*17 = 84*85/2. %e A357590 21945 = 3*5*7*11*19 = 209*210/2. %e A357590 121278 = 2*3*17*29*41 = 492*493/2. %e A357590 154290 = 2*3*5*37*139 = 555*556/2. %p A357590 q:= n-> map(i-> i[2], ifactors(n)[2])=[1$5]: %p A357590 select(q, [seq(n*(n+1)/2, n=0..1000)])[]; # _Alois P. Heinz_, Oct 05 2022 %t A357590 Select[Accumulate @ Range[600], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1, 1} &] (* _Amiram Eldar_, Oct 05 2022 *) %Y A357590 Intersection of A000217 and A046387. %Y A357590 Cf. A068443, A128896, A333771. %K A357590 nonn %O A357590 1,1 %A A357590 _Massimo Kofler_, Oct 05 2022