OFFSET
1,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..1735
MATHEMATICA
With[{s = Array[1 + # - EulerPhi@ # - DivisorSigma[0, #] &, 700]}, Union@ FoldList[Max, 0, s]]
DeleteDuplicates[Table[n+1-DivisorSigma[0, n]-EulerPhi[n], {n, 1000}], GreaterEqual] (* Harvey P. Dale, Apr 03 2023 *)
PROG
(PARI) lista(nn) = {rec = -1; for (n=1, nn, new = n+1-numdiv(n)-eulerphi(n); if (new > rec, print1(new, ", "); rec = new); ); } \\ Michel Marcus, Mar 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Mar 15 2018
STATUS
approved