A004178 Omit 3's from n.

0, 1, 2, 0, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 14, 15, 16, 17, 18, 19, 20, 21, 22, 2, 24, 25, 26, 27, 28, 29, 0, 1, 2, 0, 4, 5, 6, 7, 8, 9, 40, 41, 42, 4, 44, 45, 46, 47, 48, 49, 50, 51, 52, 5, 54, 55, 56, 57, 58, 59, 60, 61, 62, 6, 64, 65, 66, 67, 68, 69, 70, 71, 72, 7, 74

Offset

0,3

Comments

a(n) = 0 when n = 0 or when n is a 3-repdigit (A002277). a(n) = n when it contains no 3 among its digits. - Alonso del Arte, Oct 16 2012

Links

Table of n, a(n) for n=0..74.

Example

a(13) = 1 because after deleting the 3 from its base 10 representation, we're left with 1.
a(14) = 14 because there are no 3s to delete.

Mathematica

Table[FromDigits[DeleteCases[IntegerDigits[n], 3]], {n, 0, 74}] (* Alonso del Arte, Oct 16 2012 *)

Prog

(PARI) a(n)=subst(Pol(select(k->k-3, digits(n))), 'x, 10) \\ Charles R Greathouse IV, Oct 16 2012

Crossrefs

Cf. A004722, A052405.

Sequence in context: A326055 A276331 A049271 * A068333 A121451 A265820

Adjacent sequences: A004175 A004176 A004177 * A004179 A004180 A004181

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Status

approved