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
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..1386
- Michael De Vlieger, Prime decomposition of a(n), n = 1..1386.
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 *)
Comments