A168501 Numbers without the decimal digits 2, 4 and 6.

0, 1, 3, 5, 7, 8, 9, 10, 11, 13, 15, 17, 18, 19, 30, 31, 33, 35, 37, 38, 39, 50, 51, 53, 55, 57, 58, 59, 70, 71, 73, 75, 77, 78, 79, 80, 81, 83, 85, 87, 88, 89, 90, 91, 93, 95, 97, 98, 99, 100, 101, 103, 105, 107, 108, 109, 110, 111, 113, 115, 117, 118, 119, 130, 131, 133

Offset: 1

Author

Juri-Stepan Gerasimov, Nov 27 2009

Keywords

• nonn
• base
• easy
• less

Comments

Numbers that contain non-single or nonisolated digits only (see the first seven values of A167707 for the digits that are not 2, 4, or 6).

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A014263, A167707.

Programs

Magma

[n: n in [0..200] | IsEmpty(Set([2,4,6]) meet Set(Intseq(n)))]; // Bruno Berselli, Jul 25 2016

Mathematica

Select[Select[Select[Range[0, 4500], FreeQ[IntegerDigits@#, 2] &], FreeQ[IntegerDigits@#, 4] &], FreeQ[IntegerDigits@#, 6] &] (* G. C. Greubel, Jul 24 2016 *)

Extensions

Corrected (114 removed) by R. J. Mathar, Jun 04 2010