A210365 Prime numbers p such that x^2 + x + p produces primes for x = 0..6 but not x = 7.

1277, 28277, 113147, 421697, 665111, 1164587, 1615631, 2798921, 2846771, 3053747, 5071667, 5093507, 5344247, 5706641, 6383051, 8396777, 10732817, 10812407, 11920367, 13176587, 16197947, 16462541, 16655447, 16943471, 17807831, 18102101, 20488901, 23421311

Offset

1,1

Comments

The first term is A164926(7).

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

lookfor = 7; t = {}; n = 0; While[Length[t] < 30, n++; c = Prime[n]; i = 1; While[PrimeQ[i^2 + i + c], i++]; If[i == lookfor, AppendTo[t, c]]]; t

Crossrefs

Cf. A067774, A164926, A210360, A210361, A210362, A210363, A210364.

Sequence in context: A236013 A282440 A211685 * A190831 A202643 A237407

Adjacent sequences: A210362 A210363 A210364 * A210366 A210367 A210368

Keyword

nonn

Author

T. D. Noe, Apr 05 2012

Status

approved