login
A044890
Base-4 run lengths alternate: even, odd, even,...
1
5, 10, 15, 20, 22, 23, 40, 41, 43, 60, 61, 62, 85, 170, 255, 320, 325, 330, 335, 340, 342, 343, 352, 357, 362, 367, 368, 373, 378, 383, 640, 645, 650, 655, 656, 661, 666, 671, 680, 681, 683, 688, 693, 698, 703, 960, 965, 970, 975
OFFSET
1,1
LINKS
MATHEMATICA
eoe4Q[n_]:=Module[{c=If[EvenQ[Length[#]], 1, 0]&/@Split[ IntegerDigits[ n, 4]]}, c==PadRight[{}, Length[c], {1, 0}]]; Select[Range[1000], eoe4Q] (* Harvey P. Dale, Jun 01 2021 *)
CROSSREFS
Sequence in context: A101889 A115772 A178891 * A313717 A313718 A313719
KEYWORD
nonn,base
STATUS
approved