A084300 a(n) = phi(n) mod 6.

1, 1, 2, 2, 4, 2, 0, 4, 0, 4, 4, 4, 0, 0, 2, 2, 4, 0, 0, 2, 0, 4, 4, 2, 2, 0, 0, 0, 4, 2, 0, 4, 2, 4, 0, 0, 0, 0, 0, 4, 4, 0, 0, 2, 0, 4, 4, 4, 0, 2, 2, 0, 4, 0, 4, 0, 0, 4, 4, 4, 0, 0, 0, 2, 0, 2, 0, 2, 2, 0, 4, 0, 0, 0, 4, 0, 0, 0, 0, 2, 0, 4, 4, 0, 4, 0, 2, 4, 4, 0, 0, 2, 0, 4, 0, 2, 0, 0, 0, 4, 4, 2, 0, 0, 0

Offset: 1

Author

Labos Elemer, Jun 02 2003

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A000010, A010875, A054763, A074942, A084299, A084301.

Programs

Mathematica

a[n_] := Mod[EulerPhi[n], 6]; Array[a, 100] (* Amiram Eldar, Aug 17 2024 *)

PARI

A084300(n) = (eulerphi(n)%6); \\ Antti Karttunen, Aug 22 2017

Formula

a(n) = A000010(n) mod 6.

a(n) = A010875(A000010(n)). - Amiram Eldar, Aug 17 2024