This computer says 524 (?) test[{a_,b_,c_}]:=a+b>c&&b+c>a&&c+a>b; Length[Select[Subsets[Divisors[2016],{3}],test]] 524
blackjack
flooble's webmaster puzzle