%I#21 2021年4月22日22:08:46

%S 0,1,3,4,5,6,7,8,9,10,11,1,13,14,15,16,17,18,19,0,1,4,4,6,7，8,9,30，

%电话：31,3,33,34,35,36,37,38,39,40,41,43,44,45,46,47,48,49,50,51,53,54，

%U 55,56,57,58,59,60,61,6,63,64,65,66,67,68,69,70,71,7,73,74,75

%N删除非负整数序列中的所有2。

%t d[n_]：=整数位数[n]；t={0}；做[If[Union[d[n]]={2} ，n=起始数字[删除案例[d[n]，2]；附录[t，n]]，{n，75}]；t（*Jayanta Basu，2013年5月17日*）

%o（Python）

%o定义A004721（n）：

%o l=长度（str（n））

%o m=2*（10**l-1）//9

%o k=n+l-int（n+l<m）

%o如果k==m else int（str（k）.replace（'2'，''））#_Chai Wah Wu_，2021年4月20日，则返回1

%Y参考A004719、A004720、A004722、A004723、A004724、A004725、A004726、A004727、A004728。

%K基，nonn

%0、3

%A _N.J.A.斯隆_