%I#7 2017年5月6日09:37:03

%S 1,2,3,4,5,6,7,8,9,10,11,17,18,19,20,21,22,23,30,31,32,33,34,35,43,44，

%电话：45,46,47,48,56,57,58,59,60,61,69,70,71,72,73,74,82,83,84,85,86,87,95，

%U 96,97,98,99100108109110111112113120单位

%N如果d，e是以12为基数的N的连续数字，则|d-e|>=4。

%t cdnQ[n_]：=AllTrue[Differences[Integer Digits[n，12]]，Abs[#]>3&]；选择[Range[130]，cdnQ]（*程序使用Mathematica版本10中的AllTrue函数*）（*Harvey P.Dale_，2017年5月6日*）

%K nonn，基础

%O 1,2号机组

%百灵鸟金伯利_