A267421 Primes of the form prime(n) + n + n^2.

17, 41, 73, 113, 139, 163, 193, 223, 491, 859, 919, 1187, 1259, 1409, 1483, 1901, 1987, 2083, 2267, 2467, 2677, 3221, 4339, 4603, 5923, 6079, 7573, 8839, 9421, 9619, 10223, 11489, 11701, 12143, 12589, 13499, 13729, 14449, 15679, 16183, 16703, 17231, 17497, 19121

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

The ninth prime is 23, and 23 + 9 + 9^2 = 113, which is prime, so 113 is in the sequence.

Maple

p:= 0: Res:= NULL:
for n from 1 to 1000 do
  p:= nextprime(p);
  if isprime(p+n+n^2) then Res:= Res, p+n+n^2 fi
od:
Res; # Robert Israel, Jan 08 2017

Mathematica

Select[Table[Prime[n] + n + n^2, {n, 100}], PrimeQ] (* Alonso del Arte, Feb 22 2016 *)

Prog

(PARI) lista(nn) = {for (n=1, nn, if (isprime(p=prime(n)+n+n^2), print1(p, ", ")); ); } \\ Michel Marcus, Mar 13 2016

Crossrefs

Cf. A014688, A128938.

Sequence in context: A007519 A163185 A138005 * A166147 A028886 A146443

Adjacent sequences: A267418 A267419 A267420 * A267422 A267423 A267424

Keyword

nonn,easy

Author

Emre APARI, Jan 14 2016

Extensions

More terms from Michel Marcus, Mar 13 2016

Status

approved