A076249 Distance between maxima of the cototient function.

1, 2, 2, 4, 2, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 12, 6, 6, 6, 6, 6, 6, 6, 6, 18, 12, 18, 6, 6, 30, 12, 12, 6, 24, 6, 30, 30, 18, 12, 30, 30, 12, 18, 24, 6, 30, 6, 24, 30, 30, 30, 30, 24, 6, 30, 30, 30, 30, 60, 24, 6, 30, 30, 30, 30, 60, 30, 30, 60, 30, 60, 60, 30, 18, 12, 30, 60

Offset: 0

Author

Olivier Gérard

Keywords

• nonn

Comments

First differences of A065385, indices of records in A051953. - Michael De Vlieger, Oct 25 2023

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..1386
• Michael De Vlieger, Prime decomposition of a(n), n = 1..1386.

Crossrefs

Cf. A051953, A065385, A076250.

Programs

Mathematica

j = 1; r = 0; Reap[Do[If[# > r, Sow[(i - j)]; Set[{j, r}, {i, #}]] &[i - EulerPhi[i]], {i, 2000}]][[-1, 1]] (* Michael De Vlieger, Oct 25 2023 *)