OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory); [ seq(ithprime(phi(i)), i=1..80) ];
MATHEMATICA
Prime[EulerPhi[Range[70]]] (* Harvey P. Dale, Nov 24 2022 *)
PROG
(PARI) A048848(n) = prime(eulerphi(n)); \\ Antti Karttunen, Dec 05 2017
(Magma) [NthPrime(EulerPhi(n)): n in [1..100]]; // G. C. Greubel, Feb 22 2024
(SageMath) [nth_prime(euler_phi(n)) for n in range(1, 101)] # G. C. Greubel, Feb 22 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected by Antti Karttunen, Dec 05 2017
STATUS
approved