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,3

Links

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

Formula

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

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A033746 A033738 A033734 * A080917 A033726 A359382

Adjacent sequences: A084297 A084298 A084299 * A084301 A084302 A084303

Keyword

easy,nonn

Author

Labos Elemer, Jun 02 2003

Status

approved