|
|
A063461
|
|
Primes of the form k^2 + prime(k) + 1.
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|