OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(1)=0-(-1)^0=-1. a(2)=1-(-1)^1=2.
MAPLE
MATHEMATICA
nonPrime[n_Integer] := FixedPoint[n + PrimePi@# &, n + PrimePi@n]; Table[nonPrime[n] - (-1)^(nonPrime[n]), {n, 0, 50}] (* G. C. Greubel, Aug 24 2017 *)
PROG
(PARI) for(n=1, 1e3, if(!isprime(n), print1(n - (-1)^n", "))) \\ Charles R Greathouse IV, Jun 10 2015
CROSSREFS
KEYWORD
sign,easy,less
AUTHOR
Juri-Stepan Gerasimov, Aug 07 2009
EXTENSIONS
Entries checked by R. J. Mathar, Aug 29 2009
STATUS
approved