OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..4700
EXAMPLE
17 is in the sequence since 13 + 19 - 1 = 31 which is the eleventh prime.
MATHEMATICA
fQ[p_] := PrimeQ[ NextPrime[p, -1] + NextPrime[ p] -1]; Select[ Prime@ Range[2, 170], fQ]
PROG
(Sage)
max_next_p = 1000
seq = []
prev_p = nth_prime(1)
p = nth_prime(2)
for next_p in primes(nth_prime(3), max_next_p):
if is_prime(prev_p + next_p - 1):
seq.append(p)
prev_p = p
p = next_p
print(seq)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert C. Lyons and Robert G. Wilson v, Dec 31 2016
STATUS
approved