A098761 Primes of the form prime(n) + prime(n+1) - prime(n+2) with multiplicity, ordered by increasing n.

5, 7, 11, 13, 13, 23, 37, 37, 41, 53, 73, 97, 101, 103, 109, 127, 137, 157, 179, 191, 223, 223, 229, 251, 263, 271, 269, 307, 311, 353, 373, 389, 409, 419, 433, 457, 479, 487, 491, 503, 541, 563, 571, 593, 641, 647, 673, 683, 691, 701, 757, 809, 821, 853, 859

Offset: 1

Author

Giovanni Teofilatto, Oct 30 2004

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A098865.

Programs

Magma

[a: n in [1..150] | IsPrime(a) where a is NthPrime(n)+NthPrime(n+1)-NthPrime(n+2)]; // Vincenzo Librandi, Jun 23 2016

Mathematica

Select[First[#]+#[[2]]-Last[#]&/@Partition[Prime[Range[200]], 3,1], PrimeQ] (* Harvey P. Dale, Jun 05 2011 *)

Extensions

Edited, corrected and extended by Ray Chandler, Nov 04 2004