%我#2020年3月12日18:24:11

%S 3,4,5,6,7,8,9,13,14,15,16,17,18,19,23,25,26,27,28,29,31,33,34,35,37，

%电话：38、39、41、43、44、45、46、47、48、49、51、52、53、54、55、56、57、58、59、61、62、63、64，

%U 65、66、67、68、69、71、73、74、75、76、77、78、79、81、82、83、85、86、87、88、89、91、92

%N对k进行编号，使（k的位数之和）>（k的除数）。

%F A007953（k）>A000005（k）的解决方案。

%e序列包括数字之和大于2的所有素数，即对于非负整数d，所有非10^d+1形式的素数（这种形式的已知素数只有2、11和101；参见A185121）。

%e序列还包括数字和大于3的所有平方素数。

%t sud[x_]：=应用[Plus，IntegerDigits[x]]Do[s=sud[n]-除数西格玛[0，n]；如果[s>0，打印[n]]，{n，1，256}]

%t选择[Range[100]，Total[Integer Digits[#]]>Divisor Sigma[0，#]&]（*哈维·P·戴尔，2020年3月7日*）

%Y参考A007953、A000005、A057531、A075492、A075491、A185121。

%K基础，简单，无

%O 1,1号机组

%A _Labos Elemer，2002年9月26日

%E编辑：Jon E.Schoenfield_2018年9月23日