A300914 Records in A045763.

0, 1, 3, 5, 7, 9, 11, 15, 16, 17, 23, 25, 29, 33, 39, 47, 49, 55, 63, 71, 73, 79, 81, 87, 99, 105, 111, 115, 119, 127, 129, 147, 151, 157, 159, 163, 167, 169, 183, 199, 203, 207, 235, 241, 255, 279, 301, 313, 327, 329, 337, 367, 373, 387, 411, 417, 463, 477

Offset: 1

Author

Michael De Vlieger, Mar 15 2018

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..1735

Crossrefs

Cf. A000005, A000010, A045763, A300859.

Programs

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 *)

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