A206941 a(n) = phi(lambda(n)), where phi = A000010, lambda = A002322.

1, 1, 1, 1, 2, 1, 2, 1, 2, 2, 4, 1, 4, 2, 2, 2, 8, 2, 6, 2, 2, 4, 10, 1, 8, 4, 6, 2, 12, 2, 8, 4, 4, 8, 4, 2, 12, 6, 4, 2, 16, 2, 12, 4, 4, 10, 22, 2, 12, 8, 8, 4, 24, 6, 8, 2, 6, 12, 28, 2, 16, 8, 2, 8, 4, 4, 20, 8, 10, 4, 24, 2, 24, 12, 8, 6, 8, 4, 24, 2, 18

Offset

1,5

References

W. J. LeVeque, Topics in Number Theory. Addison-Wesley, Reading, MA, 2 vols., 1956, Vol. 1, p. 55, Theorem 4.10.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

R. D. Carmichael, Note on a new number theory function, Bull. Amer. Math. Soc. 16 (1909-10), 232-238.

Mathematica

Table[EulerPhi@ CarmichaelLambda@ n, {n, 96}] (* Michael De Vlieger, Mar 18 2016 *)

Prog

(Haskell)
a206941 = a000010 . a002322 -- Reinhard Zumkeller, Feb 18 2012
(PARI) a(n)=eulerphi(lcm(znstar(n)[2])) \\ Charles R Greathouse IV, Feb 21 2013

Crossrefs

Cf. A000010, A002322, A077197.

Sequence in context: A181776 A243036 A230224 * A327790 A143179 A349867

Adjacent sequences: A206938 A206939 A206940 * A206942 A206943 A206944

Keyword

nonn

Author

N. J. A. Sloane, Feb 13 2012

Status

approved