A176407 Omit all 1's and 2's from n.

0, 0, 0, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 3, 4, 5, 6, 7, 8, 9, 30, 3, 3, 33, 34, 35, 36, 37, 38, 39, 40, 4, 4, 43, 44, 45, 46, 47, 48, 49, 50, 5, 5, 53, 54, 55, 56, 57, 58, 59, 60, 6, 6, 63, 64, 65, 66, 67, 68, 69, 70, 7, 7, 73, 74, 75, 76, 77, 78, 79, 80, 8, 8, 83, 84, 85, 86, 87, 88, 89, 90, 9, 9, 93, 94, 95, 96, 97, 98, 99, 0, 0, 0, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 3, 4

Offset

0,4

Links

Michel Marcus, Table of n, a(n) for n = 0..5000

Mathematica

Table[FromDigits[DeleteCases[IntegerDigits[n], 1 | 2]], {n, 300}]

Prog

(PARI) a(n) = fromdigits(select(x->((x!=1) && (x!=2)), digits(n))); \\ Michel Marcus, Sep 17 2017

Crossrefs

Cf. A004176 (Omit 1's from n), A004177 (Omit 2's from n).

Sequence in context: A009041 A196033 A248631 * A077396 A243196 A247485

Adjacent sequences: A176404 A176405 A176406 * A176408 A176409 A176410

Keyword

nonn,base

Author

Zak Seidov, Dec 07 2010

Status

approved