%I#8 2013年3月21日10:24:21

%S 1、2、3、4、5、6、7、8、19

%N 7-因子：等于以10为底的数字的7倍因子之和。

%e 19->1！！！！！！+9!!!!!!! = 1 + 9*2 = 1 + 18 = 19.

%p p：=proc（n，m）局部a，b，i，j，k，x，w；对于i从1乘1到n，做a:=0；b： =0；w： =0；k： =i；当k>0时，dow:=k-（trunc（k/10）*10）；j： =w；x： =w-m；如果w=0，则b:=1；当x>0时，else执行j:=j*x；x： =x-m；od；b： =j；fi；a： =a+b；k： =trunc（k/10）；od；如果a=i，则lprint（i，a）；fi；od；结束：P（1000,7）；

%Y A014080、A097653、A173573-A173576

%K easy、fini、full、nonn、base

%O 1,2号机组

%A _Paolo P.Lava和Giorgio Balzarotti，2010年2月22日

%E定义由_Paolo P.Lava更正，2010年2月24日