A044852 Positive integers having no fewer base-11 runs of even length than odd.

12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 121, 132, 134, 135, 136, 137, 138, 139, 140, 141, 142, 145, 157, 169, 181, 193, 205, 217, 229, 241, 242, 254, 264, 265, 267, 268, 269, 270, 271, 272, 273, 274, 278, 290, 302, 314, 326

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Mathematica

nfelQ[n_]:=Total[If[OddQ[Length[#]], -1, 1]&/@Split[IntegerDigits[n, 11]]]>=0; Select[Range[400], nfelQ] (* Harvey P. Dale, Jun 12 2020 *)

Crossrefs

Sequence in context: A340511 A094529 A270571 * A121578 A044897 A008594

Adjacent sequences: A044849 A044850 A044851 * A044853 A044854 A044855

Keyword

nonn,base

Author

Clark Kimberling

Status

approved