cp's OEIS Frontend

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.

A076249 Distance between maxima of the cototient function.

This page as a plain text file.
%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_