使用(ListTools):
对于从2到10的n,do:
ii:=0:
对于从2到10^9的k,当(ii=0)do时:
n0:=长度(k):lst:={}:x0:=系数(k)
y: =展平(x0[2]):z:=转换(y,set):
z1:=z减去{1}:nn0:=nops(z1):
对于从1到nn0的m,do:
t1:=转换(z1[m],基数,10):z2:=转换(t1,集):
lst:=lst联合z2:
日期:
nn1:=无(lst):
如果nn1=n,则ii:=1:printf(“%d%d\n”,n,k):
其他的
图1:
日期:
日期: