OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..10000
MATHEMATICA
Table[n - PrimePi[n/2], {n, 0, 100}] (* Vincenzo Librandi, Feb 18 2017 *)
PROG
(Magma) [0, 1] cat [ n-#PrimesUpTo(n div 2): n in [2..90] ]; // Vincenzo Librandi, Feb 18 2017
(PARI) a(n)=n - primepi(n\2) \\ Charles R Greathouse IV, Feb 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 17 2017
STATUS
approved