%I#7 2013年6月22日15:02:02

%S 1,2,3,5,10,15,16,17,20,21,22,23,25,26,29,31,32,34,37,38,40,41,42,43，

%电话：46,47,48,51,53,55,58,59,60,61,62,63,64,69,81,84,85,86,87,89,93101，

%电话：106117127128138149154162166168169170

%N个以4位数字为基数的数字，没有两个相等的数字。

%t ntb4Q[n_]：=模块[{d=DeleteCase[DigitCount[n，4]，0]}，长度[d]==长度[Union[d]]]；选择[范围[200]，ntb4Q]（*_哈维·P·戴尔，2013年6月22日*）

%K nonn，基础

%O 1,2号机组

%百灵鸟金伯利_