A044859 Positive integers having the same number of base-3 runs of odd length as even.

9, 12, 14, 17, 18, 22, 24, 25, 81, 108, 117, 120, 122, 125, 134, 161, 162, 202, 216, 229, 234, 238, 240, 241, 252, 255, 257, 260, 261, 265, 267, 268, 279, 287, 315, 319, 327, 329, 330, 331, 333, 336, 338, 341, 342, 346, 348, 349

Offset

1,1

Links

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

Maple

f:= proc(n) local L;
  L:= [-1, op(convert(n, base, 3)), -1];
  L:= L[1..-2]-L[2..-1];
  L:= select(t -> L[t]<>0, [$1..nops(L)]);
  L:= L[2..-1]-L[1..-2];
  convert(L mod 2, `+`)*2 = nops(L)
end proc:
select(f, [$1..1000]); # Robert Israel, Jun 11 2019

Crossrefs

Sequence in context: A351042 A259313 A170951 * A336754 A336756 A114306

Adjacent sequences: A044856 A044857 A044858 * A044860 A044861 A044862

Keyword

nonn,base

Author

Clark Kimberling

Status

approved