%I #10 May 15 2018 09:01:38
%S 2,3,5,6,7,9,11,12,13,15,17,18,19,20,21,23,29,30,31,33,37,39,41,42,43,
%T 45,47,50,51,53,56,57,59,61,63,66,67,69,70,71,72,73,75,78,79,83,84,87,
%U 89,90,93,97,101,102,103,105,107,108,109,110,111
%N Product of a prime and a triangular number.
%H Robert Israel, <a href="/A085783/b085783.txt">Table of n, a(n) for n = 1..10000</a>
%e 15 = 5*t(2) is a term.
%p N:= 200: # for all terms <= N
%p T:= [seq(i*(i+1)/2,i=1..floor((sqrt(4*N+1)-1)/2))]:
%p P:= select(isprime,[2,seq(i,i=3..N,2)]):
%p sort(select(`<=`,convert({seq(seq(p*t,p=P),t=T)},list),N)); # _Robert Israel_, May 15 2018
%Y Cf. A000040, A000217.
%Y A196421 is a subsequence. - _Michel Marcus_, May 15 2018
%K nonn
%O 1,1
%A _Jon Perry_, Jul 23 2003
%E 107 and 109 inserted by _Robert Israel_, May 15 2018