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,3

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

Mathematica

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

Prog

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

Crossrefs

Cf. A014263, A167707.

Sequence in context: A136443 A247459 A020491 * A173186 A335575 A047746

Adjacent sequences: A168498 A168499 A168500 * A168502 A168503 A168504

Keyword

nonn,base,easy,less

Author

Juri-Stepan Gerasimov, Nov 27 2009

Extensions

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

Status

approved