OFFSET
1,1
EXAMPLE
8 = 2*2*2 immediately follows 10 = 2*5; 58 = 2*29 follows 52 = 2*2*13. In both cases, the latter term has a new prime factor (like 29) or an old one at a higher power (like 2*2*2).
MATHEMATICA
s0=1; s1=1; Do[s0=s1; s1=LCM[s1, EulerPhi[n]]; If[ !Equal[s0, s1], Print[n]], {n, 1, 1000}]
PROG
(PARI) lista(nn) = {least = 1; for (n=2, nn, nleast = lcm(least, eulerphi(n)); if (nleast > least, print1(eulerphi(n), ", ")); least = nleast; ); } \\ Michel Marcus, Jul 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 08 2002
STATUS
approved