OFFSET
1,3
FORMULA
a(1)=1; for n>=2, a(n)=A007917(n)-1.
MATHEMATICA
Module[{nn=80, ep}, ep=EulerPhi[Range[nn]]; Table[Max[Take[ep, n]], {n, nn}]] (* Harvey P. Dale, Jul 23 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 11 2002
STATUS
approved