OFFSET
1,1
EXAMPLE
a(1) = 16653 because 16653 is the smallest number in the first set of four consecutive triangular numbers with four distinct prime factors, i.e., 16653 = 3*7*13*61, 16836 = 2^2*3*23*61, 17020 = 2^2*5*23*37, 17205 = 3*5*31*37.
MATHEMATICA
t[n_] := n*(n + 1)/2; q[n_] := PrimeNu[n] == 4; Select[Partition[t /@ Range[1000], 4, 1], AllTrue[#, q] &][[;; , 1]] (* Amiram Eldar, Nov 29 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Nov 29 2021
STATUS
approved