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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A098865.

Sequence in context: A054500 A082684 A096379 * A113837 A255363 A245757

Adjacent sequences: A098758 A098759 A098760 * A098762 A098763 A098764

Keyword

nonn,easy

Author

Giovanni Teofilatto, Oct 30 2004

Extensions

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

Status

approved