A032941 Numbers whose base-6 representation Sum_{i=0..m} d(i)*6^(m-i) has d(i)=0 for all odd i.

1, 2, 3, 4, 5, 6, 12, 18, 24, 30, 36, 37, 38, 39, 40, 41, 72, 73, 74, 75, 76, 77, 108, 109, 110, 111, 112, 113, 144, 145, 146, 147, 148, 149, 180, 181, 182, 183, 184, 185, 216, 222, 228, 234, 240, 246, 432, 438, 444, 450, 456, 462

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

f:= proc(n, j) local L, m;
  L:= convert(n, base, 6);
  m:= nops(L);
  j*add(L[i+1]*6^(2*i), i=0..m-1)
end proc: seq(seq(seq(f(n, j), n=6^k..6^(k+1)-1), j=[1, 6]), k=0..2); # Robert Israel, Nov 16 2020

Mathematica

Join[{1, 2, 3, 4, 5}, Select[Range[500], Union[Take[IntegerDigits[#, 6], {2, -1, 2}]]=={0}&]] (* Harvey P. Dale, Jul 06 2019 *)

Crossrefs

Cf. A007092 (numbers in base 6).

Sequence in context: A322570 A108320 A177958 * A273733 A218345 A059460

Adjacent sequences: A032938 A032939 A032940 * A032942 A032943 A032944

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Definition corrected by Robert Israel, Nov 16 2020

Status

approved