%我#21 2017年5月26日03:21:15

%S 0,0,0,1,1,1,1,1,1,1,1,1,1,0,2,2,2,2,2,2,2,1,0,3,3,3，

%温度3,3,2,1,0,4,4,4，4,4,1,4,3,2,1,0,5,5,4,2,2,0,6,6,6，6,5,4，3,2，

%U 1,0,7,7,6,5,4,3,2,1,0,8,8,7,5,5,3,2,1,0,9,8,6,6,4,2,0,2,3,5,6

%N小于N且具有相同数字和的数字的数目。

%C A138470（n）+a（n）+A138472（n）=n；

%Ca（A051885（n））=0。

%Ca（A228915（n））=a（n）+1.-_Robert Israel_，2017年5月26日

%H Robert Israel，n表，n=0..100000的a（n）（Reinhard Zumkeller的术语0..1500）

%H<a href=“/index/Coi#Colombian”>哥伦比亚或自身编号和相关序列的索引条目</a>

%e a（42）={6,15,24,33}=4。

%p N:=1000:#得到a（0）到a（N）

%p C：=矢量（9*（1+ilog10（N））：

%p A[0]：=0：

%p代表n从1到n do

%p s：=转换（convert（n，base，10），`+`）；

%p A[n]：=C[s]；

%p C[s]：=C[s]+1；

%日期：

%p序列（A[i]，i=0..N）；#_Robert Israel_，2017年5月25日

%t模[{nn=110，sd}，sd=Total[Integer Digits[#]]和/@Range[nn]；Join[{0}，Table[Count[Take[sd，i-1]，sd[[i]]，{i，nn}]]（*哈维·P·戴尔，2013年8月14日*）

%o（PARI）a（n）=我的（sdn=总和（n））；总和（k=1，n-1，总和数字（k）==sdn）；\\_米歇尔·马库斯，2017年5月26日

%Y参见A007953、A051885、A138470、A13847、A228915。

%K nonn，基础，看

%O 0,21号

%A _Reinhard Zumkeller，2008年3月19日