%I#42 2023年10月18日02:13:45

%S 1,1,1,1,1,1,1,1,2,4,5,6,7,8,9,10,11,12,13,13,13-13,13,13，

%电话：13,13,14,14,14-14,14,14,14,14，14,14,15,15,15,15，15,15,15,15，16，

%U 16,16,16,16，16,16,16，16,16，17,17,17,17，17,17，17，17，17,18，18,18，18

%N次数1用于写出所有数字1到N。

%C写入n个或更少数字的所有整数所需的1数（即序列a（9）、a（99）、a是1、20、300、4000。。。，即A053541Jason D.W.Taff（jtaff（AT）jburroughs.org），2004年12月5日

%C A014778给出了固定点_David Wasserman，2005年2月22日

%C A268643的部分金额_罗伯特·伊斯雷尔（Robert Israel），2016年10月28日

%H Harvey P.Dale，n表，n=1..1000的a（n）</a>

%F G.F.G（x）满足G（x）=x/（1-x）*（1-x^10））+（1-x*10）/（1-x））^2*G（x^10_罗伯特·伊斯雷尔（Robert Israel），2016年10月28日【由福比奥·维松（_Fabio Visoná_）更正，2022年8月10日】

%p nones:=proc（n）local nn，c，j:nn:=convert（n，base，10）：c:=0：对于j到nops（nn）do，如果nn[j]=1，那么c:=c+1 else end if end do：c end proc:a:=proc（n）options操作符，箭头：add（nones（k），k=1..n）end proc:seq（a（n），n=1.75）；#_Emeric Deutsch，2008年3月1日

%p ListTools:-PartialSums（[seq（numbrecure（1，convert（n，base，10）），n=1..100）]）；#_罗伯特·伊斯雷尔（Robert Israel），2016年10月28日

%t累加[表[DigitCount[n，10,1]，{n，80}]]（*哈维·P·戴尔，2013年9月27日*）

%o（Python）

%o从itertools导入累加、计数、岛屿

%o def f（_，n）：返回_+str（n）.count（“1”）

%o def agen（）：累加的产量（count（1），f）

%o打印（列表（islice（agen），75））#_Michael S.Branicky_，2022年8月9日

%o（PARI）a（n）=总和（k=1，n，#选择（x->（x==1），数字（k））；\\_米歇尔·马库斯，2023年10月3日

%Y参见A014778、A053541、A268643。

%K easy、base、nonn

%O 1,10号

%A _Lekraj Beedassy，2004年6月11日