|
%I #6 Dec 26 2017 21:25:56
%S 1,0,1,0,7,6,13,0,7,6,25,12,31,6,1,0,19,10,49,12,7,6,61,24,19,6,25,12,
%T 47,18,37,0,11,6,21,20,103,6,25,24,107,54,121,12,7,6,117,48,103,30,21,
%U 12,87,54,41,24,19,6,73,36,79,6,25,0,35,46,193,12,55,58,205,40,203,6,13,12,127,34,213,48,47,6,241
%N Reversing binary representation of A083254(n), 2*phi(n) - n.
%H Antti Karttunen, <a href="/A297153/b297153.txt">Table of n, a(n) for n = 1..16384</a>
%F If A083254(n) > 0, then a(n) = A065621(A083254(n)), otherwise a(n) = A048724(-A083254(n)).
%F For all n >= 1, A065620(a(n)) = A083254(n)
%o (Scheme) (define (A297153 n) (let ((x (A083254 n))) (if (> x 0) (A065621 x) (A048724 (- x)))))
%Y Cf. A000010, A048724, A065620, A065621, A083254.
%Y Cf. also A297154, A295881.
%K nonn
%O 1,5
%A _Antti Karttunen_, Dec 26 2017
|
