登录
A230106型
使m+(m的非零位数的乘积)等于n的m数。
2
0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 2, 0, 2, 0, 2, 0, 2, 0, 1, 0, 2, 1, 1, 0, 2, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 2, 0, 0, 1, 1, 0, 2, 1, 1, 1, 0, 0, 2, 0, 0, 0, 1, 2, 1, 0, 1, 0, 1, 0, 2, 0, 0, 1, 2, 1, 1, 0, 1, 0, 0, 0, 2, 1, 0, 1, 1, 0, 2, 1, 0, 0, 0, 1, 2, 0, 2, 1, 0, 0, 1, 0, 1, 1, 0, 0, 2, 1, 1, 1, 3
抵消
0,13
评论
n出现的次数A063114号.
MAPLE公司
使用(线性代数):
读取转换;#获取digprod0
M: =1000;
lis1:=数组(0..M);
lis2:=数组(0..M);
ctmax:=4;
对于从0到ctmax的i,执行ct[i]:=数组(0..M);日期:
对于从0到M的n do
m: =n+digprod0(n);
lis1[n]:=m;
如果(m<=m),则lis2[m]:=lis2[m]+1;fi;
日期:
t1:=[seq(lis1[i],i=0..M)]; #A063114号
t2:=[seq(lis2[i],i=0..M)]; #A230106型
压缩机(t1); #A063425号
对于i从1到M do h:=lis2[i];
如果h<=ctmax,则ct[h]:=[op(ct[h]]),i];fi;日期:
长度:=nops(ct[0]);[seq(ct[0][i],i=1..len)]; #A063425号再一次
长度:=nops(ct[1]);[seq(ct[1][i],i=1..len)]; #A096922号
关键词
非n,基础
作者
N.J.A.斯隆2013年10月13日
扩展
a(1)修正人扎克·塞多夫2013年10月24日
状态
经核准的