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

Links

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

Formula

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

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

Crossrefs

Cf. A007095 (numbers in base 9).

Sequence in context: A184586 A190511 A260466 * A047390 A184653 A263085

Adjacent sequences: A033032 A033033 A033034 * A033036 A033037 A033038

Keyword

nonn,base

Author

Clark Kimberling

Status

approved