A212441 Numbers with odd curling numbers of their binary representations, cf. A181935.

0, 1, 2, 5, 6, 7, 8, 9, 13, 14, 17, 18, 22, 23, 24, 25, 29, 30, 31, 32, 33, 34, 38, 39, 40, 41, 42, 46, 49, 50, 55, 56, 57, 61, 62, 65, 66, 70, 71, 72, 77, 78, 81, 85, 86, 87, 88, 89, 93, 94, 95, 96, 97, 98, 102, 103, 104, 105, 106, 110, 113, 114, 119, 120

Offset

1,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Index entries for sequences related to binary expansion of n.

Formula

A212412(a(n)) = 1.

Mathematica

f[n_, e_] := Module[{d = IntegerDigits[n, 2^e]}, Length[Split[d][[-1]]] - If[SameQ @@ d && Mod[n, 2^e] < 2^(e - 1), 1, 0]]; q[n_] := OddQ[Max[Table[f[n, e], {e, Range[Max[1, Floor[Log2[n]]]]}]]]; q[0] = True; Select[Range[0, 120], q] (* Amiram Eldar, Apr 08 2025 *)

Prog

(Haskell)
a212441 n = a212441_list !! (n-1)
a212441_list = filter (odd . a181935) [0..]

Crossrefs

Complement of A212440.

Cf. A181935, A212412.

Sequence in context: A111175 A047326 A039044 * A182783 A084852 A288659

Adjacent sequences: A212438 A212439 A212440 * A212442 A212443 A212444

Keyword

nonn,base

Author

Reinhard Zumkeller, May 17 2012

Status

approved