(PARI)a(n)=如果(n<1,0,如果(n%9,a(n-1)+1,10*a(n/9)))
(平价)A007095号(n) =fromdigits(数字(n,9))\\米歇尔·马库斯2018年12月29日
(岩浆)[n:n in[0..74]|不是Intseq(n)]中的9; //布鲁诺·贝尔塞利2011年5月28日
(sh)序号0 1000 | grep-v 9#乔尔阿恩特2011年5月29日
(哈斯克尔)
a007095=f。减去1,其中
f 0=0
f v=10*f w+r,其中(w,r)=divMod v 9
--莱因哈德·祖姆凯勒2014年10月7日,2011年12月29日
(Python)和其他:参见oeiswiki页面(参见链接)。
|