A297154 Balanced ternary representation of A083254(n), 2*phi(n)-n.

1, 0, 1, 0, 3, 7, 17, 0, 3, 7, 9, 8, 14, 7, 1, 0, 51, 21, 47, 8, 3, 7, 48, 19, 51, 7, 9, 8, 27, 67, 32, 0, 16, 7, 13, 24, 38, 7, 9, 19, 39, 63, 161, 8, 3, 7, 153, 68, 38, 20, 13, 8, 141, 63, 34, 19, 51, 7, 138, 56, 152, 7, 9, 0, 31, 55, 149, 8, 46, 71, 105, 57, 101, 7, 17, 8, 160, 60, 89, 68, 27, 7, 81, 72, 160, 7

Offset

1,5

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Formula

If A083254(n) >= 0, then a(n) = A117967(A083254(n)), otherwise a(n) = A117968(-A083254(n)).

For all n >= 1, A117966(a(n)) = A083254(n).

Prog

(Scheme) (define (A297154 n) (let ((x (A083254 n))) (if (>= x 0) (A117967 x) (A117968 (- x)))))

Crossrefs

Cf. A000010, A083254, A117966, A117967, A117968.

Cf. also A297153, A295882.

Sequence in context: A000963 A364646 A133593 * A305348 A191147 A227211

Adjacent sequences: A297151 A297152 A297153 * A297155 A297156 A297157

Keyword

nonn

Author

Antti Karttunen, Dec 26 2017

Status

approved