login
A297153
Reversing binary representation of A083254(n), 2*phi(n) - n.
3
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, 47, 18, 37, 0, 11, 6, 21, 20, 103, 6, 25, 24, 107, 54, 121, 12, 7, 6, 117, 48, 103, 30, 21, 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
OFFSET
1,5
LINKS
FORMULA
If A083254(n) > 0, then a(n) = A065621(A083254(n)), otherwise a(n) = A048724(-A083254(n)).
For all n >= 1, A065620(a(n)) = A083254(n)
PROG
(Scheme) (define (A297153 n) (let ((x (A083254 n))) (if (> x 0) (A065621 x) (A048724 (- x)))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 26 2017
STATUS
approved