|
%I #12 Oct 26 2023 08:32:35
%S 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,
%T 30,12,12,6,24,6,30,30,18,12,30,30,12,18,24,6,30,6,24,30,30,30,30,24,
%U 6,30,30,30,30,60,24,6,30,30,30,30,60,30,30,60,30,60,60,30,18,12,30,60
%N Distance between maxima of the cototient function.
%C First differences of A065385, indices of records in A051953. - _Michael De Vlieger_, Oct 25 2023
%H Michael De Vlieger, <a href="/A076249/b076249.txt">Table of n, a(n) for n = 0..1386</a>
%H Michael De Vlieger, <a href="/A076249/a076249.txt">Prime decomposition of a(n)</a>, n = 1..1386.
%t 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 *)
%Y Cf. A051953, A065385, A076250.
%K nonn
%O 0,2
%A _Olivier Gérard_
|
