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,2

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.

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 *)

Crossrefs

Cf. A051953, A065385, A076250.

Sequence in context: A358039 A171751 A124676 * A062170 A307536 A248842

Adjacent sequences: A076246 A076247 A076248 * A076250 A076251 A076252

Keyword

nonn

Author

Olivier Gérard

Status

approved