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
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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 *)
Comments