cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A068211 Largest prime factor of Euler totient function phi(n).

This page as a plain text file.
%I A068211 #26 Sep 08 2022 08:45:05
%S A068211 2,2,2,2,3,2,3,2,5,2,3,3,2,2,2,3,3,2,3,5,11,2,5,3,3,3,7,2,5,2,5,2,3,3,
%T A068211 3,3,3,2,5,3,7,5,3,11,23,2,7,5,2,3,13,3,5,3,3,7,29,2,5,5,3,2,3,5,11,2,
%U A068211 11,3,7,3,3,3,5,3,5,3,13,2,3,5,41,3,2,7,7,5,11,3,3,11,5,23,3,2,3,7,5,5
%N A068211 Largest prime factor of Euler totient function phi(n).
%C A068211 Smallest numbers m, such that largest prime factor of phi(m) is prime(n), a(n) is a prime number and identical to the n-th term of A035095: min{x: A068211(x) = prime(n)} = A035095(n). E.g., phi(A035095(7)) = phi(103) = 2*3*17 of which 17 = prime(7) is the largest prime factor.
%H A068211 T. D. Noe, <a href="/A068211/b068211.txt">Table of n, a(n) for n = 3..1000</a>
%F A068211 a(n) = A006530(A000010(n)).
%e A068211 For n=46, phi(46) = 2*2*11, hence a(46) = 11.
%t A068211 Table[FactorInteger[EulerPhi[n]][[-1, 1]], {n, 3, 100}] (* _Vincenzo Librandi_, Jan 04 2017 *)
%o A068211 (Magma) [Maximum(PrimeDivisors(EulerPhi(n))): n in [3..90]]; // _Vincenzo Librandi_, Jan 04 2017
%o A068211 (PARI) a(n) = vecmax(factor(eulerphi(n))[,1]); \\ _Michel Marcus_, Jan 04 2017
%Y A068211 Cf. A000010, A006530.
%Y A068211 Cf. A035095, A035096.
%K A068211 nonn
%O A068211 3,1
%A A068211 _Labos Elemer_, Feb 21 2002