Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Aug 19 2015 15:43:31
%S 3,7,23,523,839,2203,2803,5039,5323,6883,11447,27883,36479,57119,
%T 69163,128873,134683,139123,146683,218077,229433,253003,310243,323759,
%U 351643,368443,418603,458323,579113,635197,703907,776159,896803,993997,1067083
%N Primes of the form p^2 + p - q, where p and q are consecutive primes.
%H Vincenzo Librandi, <a href="/A099183/b099183.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Table[ Prime[n]^2 + Prime[n] - Prime[n + 1], {n, 175}], PrimeQ[ # ] &] (* _Robert G. Wilson v_, Nov 16 2004 *)
%t Select[#[[1]]^2+#[[1]]-#[[2]]&/@Partition[Prime[Range[300]],2,1],PrimeQ] (* _Harvey P. Dale_, Aug 19 2015 *)
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Nov 15 2004
%E Edited, corrected and extended by _Robert G. Wilson v_, Nov 16 2004