A169814 a(n) = n XOR phi(n).

0, 3, 1, 6, 1, 4, 1, 12, 15, 14, 1, 8, 1, 8, 7, 24, 1, 20, 1, 28, 25, 28, 1, 16, 13, 22, 9, 16, 1, 22, 1, 48, 53, 50, 59, 40, 1, 52, 63, 56, 1, 38, 1, 56, 53, 56, 1, 32, 27, 38, 19, 44, 1, 36, 31, 32, 29, 38, 1, 44, 1, 32, 27, 96, 113, 86, 1, 100, 105, 94, 1, 80, 1, 110, 99, 104, 113, 86

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = 1 <=> n in { A065091 }. - Alois P. Heinz, Jul 06 2023

Maple

a:= n-> Bits[Xor](n, numtheory[phi](n)):
seq(a(n), n=1..89);  # Alois P. Heinz, Jul 06 2023

Mathematica

Table[BitXor[n, EulerPhi[n]], {n, 80}] (* Harvey P. Dale, Sep 18 2011 *)

Prog

(PARI) a(n)=bitxor(n, eulerphi(n)) \\ Charles R Greathouse IV, Feb 21 2013

Crossrefs

Cf. A000010, A065091, A070883, A169810, A169811, A169812, A169813.

Sequence in context: A016476 A293436 A293228 * A068436 A019570 A239303

Adjacent sequences: A169811 A169812 A169813 * A169815 A169816 A169817

Keyword

nonn,base

Author

N. J. A. Sloane, May 28 2010

Status

approved