A032948 Numbers k whose base-13 representation Sum_{i=0..m} d(i)*13^(m-i) has d(i)=0 for all odd i. Here m is the position of the leading bit of k.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 26, 39, 52, 65, 78, 91, 104, 117, 130, 143, 156, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 507, 508

Offset

1,2

Links

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

Mathematica

Join[Range[12], Select[Range[600], Union[Take[IntegerDigits[#, 13], {2, -1, 2}]]=={0}&]] (* Harvey P. Dale, Sep 23 2021 *)

Prog

(PARI) isok(n) = {my(d = digits(n, 13)); forstep (k=2, #d, 2, if (d[k], return (0)); ); return (1); } \\ Michel Marcus, Jun 03 2015

Crossrefs

Sequence in context: A108897 A023767 A023794 * A132031 A323175 A323204

Adjacent sequences: A032945 A032946 A032947 * A032949 A032950 A032951

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Name corrected by Michel Marcus, Jun 03 2015

Status

approved