OFFSET
1,1
EXAMPLE
a(3) = 7 because 7 is the smallest number k such that phi(k) = n*phi(k-1); phi(7) = 6 =3*phi(6) = 3*2.
PROG
(Magma) a:=func<n|exists(r){k:k in[2..10^8] | EulerPhi(k) eq n*EulerPhi(k-1)}select r else 0>; [a(n):n in[1..5]]
(PARI) a(n) = my(k=2, epk=1, enk); while ((enk=eulerphi(k)) != n*epk, epk = enk; k++); k; \\ Michel Marcus, Feb 20 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jaroslav Krizek, Jan 26 2016
STATUS
approved