OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(1) = 1-0 = 1. a(2) = 9-4 = 5. a(3) = 15-6 = 9.
MATHEMATICA
A014076 := Select[Range@500, ! PrimeQ@# && OddQ@# &]; A163300 := Drop[Range[0, 500, 2], {2}]; Table[(-A163300[[n]] + A014076[[n]]), {n, 1, 50}] (* G. C. Greubel, Sep 17 2017 *)
PROG
(Python)
from sympy import primepi
def A165971(n):
if n == 1: return 1
m, k = n-1, primepi(n) + n - 1 + (n>>1)
while m != k:
m, k = k, primepi(k) + n - 1 + (k>>1)
return m-(n<<1) # Chai Wah Wu, Aug 01 2024
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Oct 02 2009
EXTENSIONS
77 duplicated by R. J. Mathar, Oct 10 2009
STATUS
approved