login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A044904
Numbers whose base-3 run lengths alternate: odd, even, odd, ...
1
1, 2, 9, 13, 17, 18, 22, 26, 28, 29, 51, 52, 55, 56, 66, 68, 81, 117, 121, 125, 161, 162, 202, 234, 238, 242, 244, 245, 252, 256, 260, 261, 265, 269, 352, 353, 375, 376, 459, 463, 467, 468, 472, 476, 483, 484, 487, 488, 495, 499
OFFSET
1,2
LINKS
MATHEMATICA
b3rQ[n_]:=Module[{r=Boole[OddQ/@(Length/@Split[IntegerDigits[ n, 3]])]}, r == PadRight[{}, Length[r], {1, 0}]]; Select[Range[500], b3rQ] (* Harvey P. Dale, Jul 17 2020 *)
CROSSREFS
Cf. A007089.
Sequence in context: A171234 A287069 A068047 * A234902 A138946 A037385
KEYWORD
nonn,base
STATUS
approved