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
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Oct 30 2004
EXTENSIONS
Edited, corrected and extended by Ray Chandler, Nov 04 2004
STATUS
approved