OFFSET
5,14
LINKS
Michael De Vlieger, Table of n, a(n) for n = 5..1024
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
AUTHOR
STATUS
approved