login
A114351
Primes of the form 3x^3+x+1.
0
5, 197, 3011, 5197, 10141, 46901, 59077, 81031, 499181, 555637, 648061, 902357, 985597, 1119817, 1479197, 1778197, 2491847, 2738117, 2910997, 3183727, 4444747, 4562741, 4804957, 5184121, 6145277, 7381261, 8958097, 9146021, 11609837
OFFSET
1,1
MATHEMATICA
Select[Table[3x^3+x+1, {x, 200}], PrimeQ] (* Harvey P. Dale, Mar 02 2023 *)
PROG
(PARI) g(n, k) = for(x=1, n, y=k*x^3+x+1; if(isprime(y), print1(y", ")))
CROSSREFS
Sequence in context: A194575 A240772 A142927 * A296172 A080927 A211250
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Feb 09 2006
STATUS
approved