OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ Table[ Prime[n]^2 + Prime[n] - Prime[n + 1], {n, 175}], PrimeQ[ # ] &] (* Robert G. Wilson v, Nov 16 2004 *)
Select[#[[1]]^2+#[[1]]-#[[2]]&/@Partition[Prime[Range[300]], 2, 1], PrimeQ] (* Harvey P. Dale, Aug 19 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Nov 15 2004
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Nov 16 2004
STATUS
approved