OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
nonPrime[n_Integer] := FixedPoint[n+PrimePi@# &, n+PrimePi@n]; Join[{-3}, Table[Prime[n] - nonPrime[n+2], {n, 1, 70}]] (* G. C. Greubel, Jun 22 2019 *)
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved