A070320 Max( phi(k) : k=1,2,3,...,n ).

1, 1, 2, 2, 4, 4, 6, 6, 6, 6, 10, 10, 12, 12, 12, 12, 16, 16, 18, 18, 18, 18, 22, 22, 22, 22, 22, 22, 28, 28, 30, 30, 30, 30, 30, 30, 36, 36, 36, 36, 40, 40, 42, 42, 42, 42, 46, 46, 46, 46, 46, 46, 52, 52, 52, 52, 52, 52, 58, 58, 60, 60, 60, 60, 60, 60, 66, 66, 66, 66, 70, 70

Offset

1,3

Links

Table of n, a(n) for n=1..72.

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

Sequence in context: A080606 A083535 A250983 * A124195 A220662 A079584

Adjacent sequences: A070317 A070318 A070319 * A070321 A070322 A070323

Keyword

easy,nonn

Author

Benoit Cloitre, May 11 2002

Status

approved