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,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

Cf. A000005, A000010, A045763, A300859.

Sequence in context: A240992 A165704 A275852 * A204457 A283800 A043325

Adjacent sequences: A300911 A300912 A300913 * A300915 A300916 A300917

Keyword

nonn

Author

Michael De Vlieger, Mar 15 2018

Status

approved