OFFSET
1,7
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[n-DivisorSigma[0, n]-PrimePi[n]+1, {n, 70}] (* Harvey P. Dale, Sep 16 2020 *)
PROG
(PARI) a(n) = {n - numdiv(n) - primepi(n) + 1} \\ Andrew Howroyd, Jan 03 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Dec 19 2008
EXTENSIONS
Terms a(17) and beyond from Andrew Howroyd, Jan 03 2020
STATUS
approved