OFFSET
1,1
COMMENTS
For n>=1, list 7*k-prime(k) if abs(7*k-prime(k)) is prime. Terms are negative for n >= 114. - Joerg Arndt, Sep 03 2020
Some terms appear many times. For example, in the first 1000 terms, 179 appears 12 times. There are only 755 distinct terms in the first 1000 terms. - Harvey P. Dale, Aug 15 2020
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
7*60 - prime(60) = 420 - 281 = 139, so 139 appears in the sequence;
7*68 - prime(68) = 476 - 337 = 139, so 139 appears again.
MATHEMATICA
Select[Table[7n-Prime[n], {n, 250}], PrimeQ] (* Harvey P. Dale, Aug 15 2020 *)
CROSSREFS
KEYWORD
sign,less,dumb
AUTHOR
Juri-Stepan Gerasimov, Aug 14 2008
EXTENSIONS
Edited, corrected and extended by Ray Chandler, Aug 19 2008
STATUS
approved