A063461 Primes of the form k^2 + prime(k) + 1.

37, 67, 211, 349, 613, 1861, 7321, 9137, 11173, 11597, 12037, 19543, 20693, 32381, 34583, 40819, 44129, 44971, 52963, 65617, 76283, 78517, 81937, 83093, 91381, 93809, 105173, 117203, 124153, 138683, 141679, 152441, 192263, 202973, 219533

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Select[Table[n^2 + Prime[n] + 1, {n, 500}], PrimeQ] (* Vincenzo Librandi, Jun 26 2018 *)

Prog

(PARI) j=[]; for(n=1, 700, x=n^2+prime(n)+1; if(isprime(x), j=concat(j, x))); j
(PARI) { n=0; for (m=1, 10^9, if (isprime(a=m^2 + prime(m) + 1), write("b063461.txt", n++, " ", a); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 22 2009
(Magma) [a: n in [1..500] | IsPrime(a) where a is (n^2+NthPrime(n)+1)]; // Vincenzo Librandi, Jun 26 2018

Crossrefs

Sequence in context: A217659 A054805 A141163 * A105462 A119381 A138396

Adjacent sequences: A063458 A063459 A063460 * A063462 A063463 A063464

Keyword

easy,nonn

Author

Jason Earls, Jul 26 2001

Status

approved