%I#91 2023年2月1日12:27:56
%S 1,2,3,4,5,6,7,8,9,10,2,4,6,8,10,12,14,16,18,20,3,6,9,12,15,18,21,24,
%电话:27,30,4,8,12,16,20,24,28,32,36,40,5,15,20,25,30,35,40,45,50,6,12,
%U 18,24,30,36,42,48,54,60,7,14,21,28,35,42,49,56,63,70,8,16,24,32,40,48,56,64
%N的乘积(N的数字各加1)。
%C n的所有数字子集的乘积之和(空子集贡献1)。
%C非负值k的数目,使得k和n的月和为n。
%C前100个值是10 X 10乘法表,按行/列读取。
%H Reinhard Zumkeller,n表,n=0..10000的a(n)</a>
%H D.Applegate、M.LeBrun和N.J.A.Sloane,<A href=“http://arxiv.org/abs/107.1130“>Dismal Arithmetic</a>,arXiv:1107.1130[math.NT],2011年。[注:我们现在已将名称从“忧郁算术”改为“月亮算术”——旧名称太令人沮丧了]
%F a(n)=a(楼层(n/10))*(1+(n mod 10))。-_罗伯特·伊斯雷尔,2014年11月17日
%F G.F.G(x)满足G(x)=(10*x^11-11*x^10+1)*G(x^10)/(x-1)^2.-_罗伯特·伊斯雷尔,2014年11月17日
%e a(12)=6,因为(1+1)*(2+1)=2*3=6,并且因为(1*2)+(1)+(2)+。
%p seq(转换(map(`+`,convert(n,base,10),1),`*`),n=0。。1000); # _罗伯特·伊斯雷尔,2014年11月17日
%t a089898[n_Integer]:=
%t前缀[Array[Times@@(整数位数[#]+1)&,n],1];a089898[77](*迈克尔·德弗里格,2014年12月22日*)
%o(PARI)a(n)=我的(d=数字(n));触头(i=1,#d,d[i]+1);\\_Michel Marcus,2014年4月6日
%o(PARI)a(n)=vecprod(应用(x->x+1,数字(n)));\\_米歇尔·马库斯,2023年2月1日
%o(哈斯克尔)
%o a089898 n=如果n<10,则n+1其他(d+1)*a089898n’
%o其中(n',d)=divMod n 10
%o---Reinhard Zumkeller,2014年7月6日
%Y参见A007954、A087061、A001316、A006047。
%K基础,简单,不,看
%0、2
%A _ Marc LeBrun_,2003年11月13日
|