A295303 a(n) = +1 if n > phi(sigma(n)), -1 if n < phi(sigma(n)), and 0 if n = phi(sigma(n)), where phi = A000010 and sigma = A000203.

0, 0, 1, -1, 1, 1, 1, 0, -1, 1, 1, 0, 1, 1, 1, -1, 1, -1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, 1, 1, 1, 1, 1

Offset

1

Links

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

Formula

a(n) = sign(A295301(n)) = sign(n - phi(sigma(n))).

Prog

(PARI) A295303(n) = sign(n - eulerphi(sigma(n)));

Crossrefs

Cf. A000010, A000203, A062401, A295301, A295304.

Cf. A001229 (positions of 0's), A066694 (of -1's).

Sequence in context: A086823 A228487 A295306 * A288226 A373253 A104121

Adjacent sequences: A295300 A295301 A295302 * A295304 A295305 A295306

Keyword

sign

Author

Antti Karttunen, Nov 21 2017

Status

approved