This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A076249 #12 Oct 26 2023 08:32:35 %S A076249 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 A076249 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 A076249 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 A076249 Distance between maxima of the cototient function. %C A076249 First differences of A065385, indices of records in A051953. - _Michael De Vlieger_, Oct 25 2023 %H A076249 Michael De Vlieger, <a href="/A076249/b076249.txt">Table of n, a(n) for n = 0..1386</a> %H A076249 Michael De Vlieger, <a href="/A076249/a076249.txt">Prime decomposition of a(n)</a>, n = 1..1386. %t A076249 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 A076249 Cf. A051953, A065385, A076250. %K A076249 nonn %O A076249 0,2 %A A076249 _Olivier Gérard_