login
A114352
Primes of the form 5x^3+x+1.
0
7, 43, 139, 631, 1087, 1723, 5011, 29179, 46327, 60859, 98443, 109789, 179719, 320041, 370483, 975619, 1134967, 1191703, 1373191, 1503883, 2859019, 4021879, 5000101, 5151607, 5306143, 6125323, 7024753, 7804597, 9765751, 10002007
OFFSET
1,1
MATHEMATICA
Select[Table[5x^3+x+1, {x, 150}], PrimeQ] (* Harvey P. Dale, Feb 14 2011 *)
PROG
(PARI) g(n, k) = for(x=1, n, y=k*x^3+x+1; if(isprime(y), print1(y", ")))
CROSSREFS
Sequence in context: A201717 A134154 A183537 * A201707 A365302 A255314
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Feb 09 2006
STATUS
approved