|
带有（数字理论）：nn:=10^6：
对于从1到10的n，do：
ii:=0：
对于从1到nn的k，当（ii=0）时：
d： =系数集（k）：n1:=nops（d）：it:=0：
b： =转换（k，基数，10）：n2:=nops（b）：s：=总和（'b[i]'，'i'=1..n2）：
对于从1到n1的i：
x： =n/d[i]：b1:=转换（x，基数，10）：n3:=nops（b1）：
s1:=总和（‘b1[i]’，‘i’=1..n3）：
如果s1=s
然后
它：=它+1：
其他的
传真：
日期：
如果它=n
然后
ii:=1:printf（`%d%d\n`，n，it）：
其他的
传真：
日期：
| 