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

Links

Table of n, a(n) for n=1..59.

Mathematica

Select[Select[Select[Select[Range[0, 400], FreeQ[IntegerDigits@#, 2] &], FreeQ[IntegerDigits@#, 4] &], FreeQ[IntegerDigits@#, 6] &], FreeQ[IntegerDigits@#, 8] &]

Prog

(Magma) [n: n in [0..500] | IsEmpty(Set([2..8 by 2]) meet Set(Intseq(n)))];
(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

Crossrefs

Cf. A096844 (with at least one 0 digit).

Subsequence of A168501.

Sequence in context: A091066 A277599 A103848 * A079377 A186379 A186381

Adjacent sequences: A276134 A276135 A276136 * A276138 A276139 A276140

Keyword

nonn,base,easy

Author

Vincenzo Librandi, Aug 22 2016

Status

approved