|
%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
|
