A033039 Numbers all of whose base 14 digits are odd.

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 43, 45, 47, 49, 51, 53, 55, 71, 73, 75, 77, 79, 81, 83, 99, 101, 103, 105, 107, 109, 111, 127, 129, 131, 133, 135, 137, 139, 155, 157, 159, 161, 163, 165, 167, 183, 185, 187, 189, 191

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Programs

Maple

f:= proc(x) local r;
  r:= convert(x,base,7);
  add((1+2*r[i])*14^(i-1),i=0..nops(r))
end proc:
seq(seq(f(x)-3*14^d, x=7^d..2*7^d-1),d=1..3); # Robert Israel, Mar 30 2018

Mathematica

Select[Range[200],AllTrue[IntegerDigits[#,14],OddQ]&] (* Harvey P. Dale, Nov 28 2024 *)