login
A076250
Distance between maxima of the cototient function, divided by 6, starting at n=5.
2
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 3, 1, 1, 5, 2, 2, 1, 4, 1, 5, 5, 3, 2, 5, 5, 2, 3, 4, 1, 5, 1, 4, 5, 5, 5, 5, 4, 1, 5, 5, 5, 5, 10, 4, 1, 5, 5, 5, 5, 10, 5, 5, 10, 5, 10, 10, 5, 3, 2, 5, 10, 5, 10, 3, 2, 5, 15, 5, 5, 3, 2, 5, 10, 5, 10, 5, 5, 20, 5, 5, 5, 30, 5, 20
OFFSET
5,14
LINKS
MATHEMATICA
s = Array[# - EulerPhi[#] &, 2^12]; 1/6*Differences[Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s] ][[6 ;; -1]] ] (* Michael De Vlieger, Oct 25 2023 *)
CROSSREFS
KEYWORD
nonn
STATUS
approved