%I#12 2022年4月20日00:07:57

%S 8,15,16,27,44,54,72,84,90,95105125143150180195231256264287，

%电话：28830831531932835139051390423440483495512528540558559560，

%电话：5765886086246276456486507288008058198408578488997924935945960975987

%N合成k，使第k个三角形数可被k的整数对数整除。

%C复合k，使A000217（k）可被A001414（k）整除。

%C包含A046346的所有奇成员，特别是当p是奇素数且k>=1时的p^（p^k）。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%e a（5）=44=2*2*11是一个术语，因为它是复合的，A000217（44）=44*45/2=990可被2+2+11=15整除。

%p过滤器：=proc（n）局部t；非isprime（n）和（n*（n+1）/2/add（t[1]*t[2]，t=ifactors（n）[2]）：：integer end proc:

%p选择（过滤器，[$4..1000]）；

%t选择[Range[1000]，CompositeQ[#]&&Divisible[#*（#+1）/2，Plus@@Times@@FactorInteger[#]]&]（*_Amiram Eldar_，2022年4月13日*）

%Y参见A000217、A001414、A046346。

%K非n

%O 1,1号机组

%A _J.M.Bergot和_Robert Israel，2022年4月13日