A033035 Numbers such that all base 9 digits are odd.

1, 3, 5, 7, 10, 12, 14, 16, 28, 30, 32, 34, 46, 48, 50, 52, 64, 66, 68, 70, 91, 93, 95, 97, 109, 111, 113, 115, 127, 129, 131, 133, 145, 147, 149, 151, 253, 255, 257, 259, 271, 273, 275, 277, 289, 291, 293, 295, 307, 309, 311, 313, 415

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A007095 (numbers in base 9).

Programs

Maple

f:= proc(n) option remember; local m;
  m:= floor((n-1)/4);
  9*procname(m) + 2*n - 8*m - 1
end proc:
f(0):= 0:
map(f, [$1..100]); # Robert Israel, Jan 23 2019

Mathematica

Select[Range[500],AllTrue[IntegerDigits[#,9],OddQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 14 2015 *)
Flatten[Table[FromDigits[#,9]&/@Tuples[Range[1,7,2],n],{n,3}]] (* Harvey P. Dale, Jun 13 2020 *)

Formula

a(4n+j) = 9*a(n)+2*j-1 for j=1..4. - Robert Israel, Jan 23 2019