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

Links

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

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 *)

Crossrefs

Sequence in context: A033041 A077797 A353076 * A322660 A161957 A082720

Adjacent sequences: A033036 A033037 A033038 * A033040 A033041 A033042

Keyword

nonn,base

Author

Clark Kimberling

Status

approved