|
|
A191457
|
|
Primes p such that the polynomial x^2+x+p generates only primes for x=1..10.
|
|
7
|
|
|
17, 41, 180078317, 1278189947, 1761702947, 1829187287, 5862143447, 6369321857, 7226006861, 8776320587, 10102729577, 11085833111, 12412643261, 50626299797, 53039299211, 72355485857, 74621287901, 76233413141, 81948881447, 115826556611, 129077263697
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(PARI) isokp(p) = {for (n=1, 10, if (! isprime(subst(x^2+x+p, x, n)), return (0)); ); 1; }
lista(nn) = {forprime (p=1, nn, if (isokp(p), print1(p, ", ")); ); } \\ Michel Marcus, Jan 05 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|