|
%I
%S 37,67,211,349,613,1861,7321,9137,11173,11597,12037,19543,20693,32381,
%T 34583,40819,44129,44971,52963,65617,76283,78517,81937,83093,91381,
%U 93809,105173,117203,124153,138683,141679,152441,192263,202973,219533
%N Primes of the form k^2 + prime(k) + 1.
%H Harry J. Smith, <a href="/A063461/b063461.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[n^2 + Prime[n] + 1, {n, 500}], PrimeQ] (* _Vincenzo Librandi_, Jun 26 2018 *)
%o (PARI) j=[]; for(n=1,700,x=n^2+prime(n)+1; if(isprime(x),j=concat(j,x))); j
%o (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
%o (Magma) [a: n in [1..500] | IsPrime(a) where a is (n^2+NthPrime(n)+1)]; // _Vincenzo Librandi_, Jun 26 2018
%K easy,nonn
%O 1,1
%A _Jason Earls_, Jul 26 2001
|
