A276137 Numbers without the decimal digits 2, 4, 6 and 8.
0, 1, 3, 5, 7, 9, 10, 11, 13, 15, 17, 19, 30, 31, 33, 35, 37, 39, 50, 51, 53, 55, 57, 59, 70, 71, 73, 75, 77, 79, 90, 91, 93, 95, 97, 99, 100, 101, 103, 105, 107, 109, 110, 111, 113, 115, 117, 119, 130, 131, 133, 135, 137, 139, 150, 151, 153, 155, 157
Offset: 1
Programs
-
Magma
[n: n in [0..500] | IsEmpty(Set([2..8 by 2]) meet Set(Intseq(n)))];
-
Mathematica
Select[Select[Select[Select[Range[0, 400], FreeQ[IntegerDigits@#, 2] &], FreeQ[IntegerDigits@#, 4] &], FreeQ[IntegerDigits@#, 6] &], FreeQ[IntegerDigits@#, 8] &]
-
PARI
my(table=[0,1,3,5,7,9]); a(n) = fromdigits(apply(d->table[d+1],digits(n-1,6))); \\ Kevin Ryde, Jun 26 2021