%I #5 Apr 25 2017 11:47:05
%S 0,1,2,4,2,8,16,3,32,64,5,128,4,3,256,512,9,6,1024,17,2048,4096,4,
%T 8192,8,33,16384,10,65,32768,65536,6,18,131072,129,262144,524288,5,12,
%U 1048576,4,2097152,34,257,4194304,20,513,66,8388608,10,16777216,33554432,7,67108864,134217728,1025,268435456,130,18,36,16,2049,6
%N Odd bisection of A048675 divided by two: a(n) = A048675((2*n)-1)/2.
%H Antti Karttunen, <a href="/A285335/b285335.txt">Table of n, a(n) for n = 1..1024</a>
%F a(n) = A048675((2*n)-1)/2.
%F a(n) = A048675(A064216(n)).
%o (PARI)
%o A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; }; \\ After _Michel Marcus_
%o A285335(n) = A048675((2*n)-1)/2;
%o (Scheme)
%o (define (A285335 n) (A048675 (A064216 n)))
%o (define (A285335 n) (/ (A048675 (+ n n -1)) 2))
%Y Cf. A048675, A064216.
%K nonn
%O 1,3
%A _Antti Karttunen_, Apr 24 2017