%I A153883
%S A153883 0,1,3,4,6,7,12,13,15,16,18,19,24,25,27,28,30,31,36,37,39,40,42,43,60,
%T A153883 61,63,64,66,67,72,73,75,76,78,79,84,85,87,88,90,91,96,97,99,100,102,
%U A153883 103,120,121,123,124,126,127,132,133,135,136,138,139,144,145,147,148
%N A153883 A153880(n)/2
%o A153883 (Other) (MIT Scheme): (define (A153883 n) (let loop ((n n) (z 0) (i 2) 
               (f 1)) (cond ((zero? n) z) (else (loop (floor->exact (/ n i)) (+ 
               (* f (modulo n i)) z) (1+ i) (* f (+ i 1)))))))
%Y A153883 A153880(n) = 2*a(n).
%Y A153883 Sequence in context: A108797 A089161 A060965 this_sequence A033162 A105133 
               A002982
%Y A153883 Adjacent sequences: A153880 A153881 A153882 this_sequence A153884 A153885 
               A153886
%K A153883 base,nonn
%O A153883 0,3
%A A153883 Antti Karttunen (Antti.Karttunen(AT)gmail.com), Jan 03 2009