%I#18 2018年6月29日12:02:17
%S 1,4,9,16,25,36,49,64,81,12,6,12,20,30,42,56,72,90,4,6,16,30,48,70,
%电话96126160198,9,12,30,54,84120162210264324,16,20,48,84128180,
%电话:240308384468,25,30,70120180230420520630,36,42,96162240330
%N a(N)是N的和与数字的乘积(0不被视为乘积中的一个因子)。
%H Alois P.Heinz,n的表格,n=1..10000的a(n)(Harry J.Smith的前1000个术语)
%e a(49)=(4+9)*(4*9)=13*36=458。
%p a:=n->(l->加(i,i=l)*mul(`if`(i=0,1,i),i=l))(转换(n,base,10)):
%p序列(a(n),n=1..100);#_Alois P.Heinz,2018年6月29日
%t psd[n_]:=模块[{idnx0=选择[IntegerDigits[n],#>0&]},时间@@idnx0总计[idnx0:]
%t psd/@Range[90](*哈维·P·戴尔,2011年2月24日*)
%t数组[Times@@DeleteCase[#,0]*Total@#&@IntegerDigits[#]&,65](*_Michael De Vlieger_,2018年6月29日*)
%o(PARI)求和d(x)={s=0;while(x>9,s+=x-10*(x\10);x\=10);return(s+x)}ProdNzD(x arry J.Smith,2009年8月5日
%Y参考A007953、A051801。
%K nonn,简单,基础
%O 1,2号机组
%A _Amarnath Murthy,2001年6月21日
%E更多来自Larry Reeves(larryr(AT)acm.org)的术语,2001年6月22日