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

3, 7, 23, 523, 839, 2203, 2803, 5039, 5323, 6883, 11447, 27883, 36479, 57119, 69163, 128873, 134683, 139123, 146683, 218077, 229433, 253003, 310243, 323759, 351643, 368443, 418603, 458323, 579113, 635197, 703907, 776159, 896803, 993997, 1067083

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

Sequence in context: A001773 A067604 A090118 * A316792 A358974 A110864

Adjacent sequences: A099180 A099181 A099182 * A099184 A099185 A099186

Keyword

nonn

Author

Giovanni Teofilatto, Nov 15 2004

Extensions

Edited, corrected and extended by Robert G. Wilson v, Nov 16 2004

Status

approved