%I #7 Jul 13 2013 12:04:27

%S 3,4,10,11,12,15,16,19,20,21,26,27,28,35,36,37,43,44,45,47,48,51,52,

%T 53,54,58,59,60,63,64,67,68,69,73,74,75,76,79,80,82,83,84,90,91,92,99,

%U 100,101,107,108,109,111,112,115,116,117,118,122,123,124,131

%N Numbers with even curling numbers of their binary representations, cf. A181935.

%C A212412(a(n)) = 0; complement of A212441.

%H Reinhard Zumkeller, <a href="/A212440/b212440.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o a212440 n = a212440_list !! (n-1)

%o a212440_list = filter (even . a181935) [0..]

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, May 17 2012