A004177 Omit 2's from n.

0, 1, 0, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1, 13, 14, 15, 16, 17, 18, 19, 0, 1, 0, 3, 4, 5, 6, 7, 8, 9, 30, 31, 3, 33, 34, 35, 36, 37, 38, 39, 40, 41, 4, 43, 44, 45, 46, 47, 48, 49, 50, 51, 5, 53, 54, 55, 56, 57, 58, 59, 60, 61, 6, 63, 64, 65, 66, 67, 68, 69, 70, 71, 7, 73, 74

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base
• look

Links

• Robert Israel, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A004176, A004178, A004179, A004180, A004181, A004182, A004183, A004184.

Cf. A004719.

Programs

Maple

f:= proc(n) local L,i;
     L:= subs(2=NULL,convert(n,base,10));
     add(L[i]*10^(i-1),i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Sep 15 2024

Mathematica

Table[FromDigits[DeleteCases[IntegerDigits[n],2]],{n,0,80}] (* Harvey P. Dale, Feb 12 2022 *)