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

Author

Reinhard Zumkeller, May 17 2012

Keywords

• nonn
• base

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to binary expansion of n.

Crossrefs

Complement of A212440.

Cf. A181935, A212412.

Programs

Haskell

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

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 *)

Formula

A212412(a(n)) = 1.