login
A114353
Primes of the form 7x^3+x+1.
0
59, 193, 881, 3593, 5113, 12109, 64849, 85193, 123059, 229409, 384143, 415273, 726809, 1042193, 1229369, 1296409, 1437713, 2953201, 3195809, 3720169, 6193249, 6588443, 7212209, 8575409, 10100393, 10370923, 16842863, 17999609, 19208141
OFFSET
1,1
MATHEMATICA
Select[Table[7x^3+x+1, {x, 0, 150}], PrimeQ] (* Harvey P. Dale, Dec 21 2015 *)
PROG
(PARI) g(n, k) = for(x=1, n, y=k*x^3+x+1; if(isprime(y), print1(y", ")))
CROSSREFS
Sequence in context: A160681 A142857 A142064 * A210653 A325081 A142092
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Feb 09 2006
STATUS
approved