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

Author

N. J. A. Sloane, Feb 13 2012

Keywords

• nonn

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.

Crossrefs

Cf. A000010, A002322, A077197.

Programs

Haskell

a206941 = a000010 . a002322 -- Reinhard Zumkeller, Feb 18 2012

Mathematica

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

PARI

a(n)=eulerphi(lcm(znstar(n)[2])) \\ Charles R Greathouse IV, Feb 21 2013