A004182 Omit 7's from n.

0, 1, 2, 3, 4, 5, 6, 0, 8, 9, 10, 11, 12, 13, 14, 15, 16, 1, 18, 19, 20, 21, 22, 23, 24, 25, 26, 2, 28, 29, 30, 31, 32, 33, 34, 35, 36, 3, 38, 39, 40, 41, 42, 43, 44, 45, 46, 4, 48, 49, 50, 51, 52, 53, 54, 55, 56, 5, 58, 59, 60, 61, 62, 63, 64, 65, 66, 6, 68, 69, 0, 1, 2

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..20000

Programs

Mathematica

FromDigits[Flatten[IntegerDigits[#]/.(7->{})]]&/@Range[0,80] (* Harvey P. Dale, Jun 09 2013 *)