login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes of the form p^2 + p - q, where p and q are consecutive primes.
1

%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