%I#9 2023年5月31日12:46:09
%S 1、2、3、4、81、82、83、84
%N 3-阶乘:等于以10为基数的数字的三阶阶乘之和。
%C序列已完成。-_Giovanni Resta_,2013年3月21日
%e 81->8!!!+1!!! = 8*5*2 + 1 = 80 + 1 = 81.
%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,3);
%t stfQ[n_]:=n==总数[Times@@Range[#,1,-3]&/@IntegerDigits[n]];选择[范围[100],stfQ](*_哈维·P·戴尔,2023年5月31日*)
%Y参考A007661、A014080、A097653、A173574-A173577
%K easy、fini、full、nonn、base
%O 1,2号机组
%A _Paolo P.Lava和Giorgio Balzarotti,2010年2月22日
|