A098865 Primes of the form prime(n) + prime(n+1) - prime(n+2).

5, 7, 11, 13, 23, 37, 41, 53, 73, 97, 101, 103, 109, 127, 137, 157, 179, 191, 223, 229, 251, 263, 269, 271, 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, 863, 877

Offset: 1

Author

Robert G. Wilson v, Nov 04 2004

Keywords

• nonn

Comments

Many primes of this form arise in several different ways, e.g. 13, 37, 223, 1087, 1423, 1483, 1867, ..., . 13 = 17+19-23 = 19+23-29.

Links

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

Crossrefs

Cf. A098761, A096379.

Programs

Mathematica

Union[ Select[ Table[Prime[n] + Prime[n + 1] - Prime[n + 2], {n, 155}], PrimeQ[ # ] &]]
Union[Select[#[[1]]+#[[2]]-#[[3]]&/@ Partition[Prime[ Range[20000]], 3,1],PrimeQ]]  (* Harvey P. Dale, Mar 14 2011 *)