A125964 Numbers k such that k^3 + k^2 + k - 1 is prime.

1, 2, 4, 6, 10, 14, 18, 20, 24, 34, 46, 50, 56, 58, 70, 72, 78, 84, 92, 108, 112, 116, 142, 146, 150, 168, 172, 176, 178, 186, 188, 190, 204, 230, 238, 240, 242, 244, 252, 270, 276, 284, 286, 296, 304, 310, 328, 342, 350, 352, 354, 370, 378, 384, 388, 400, 406

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

filter:= k -> isprime(k^3+k^2+k-1):
select(filter, [1, seq(i, i=2..10000, 2)]); # Robert Israel, Oct 07 2019

Mathematica

Do[If[PrimeQ[ -1+n+n^2+n^3], Print[n]], {n, 1, 300}]

Prog

(Magma) [n: n in [0..1000] | IsPrime(n^3+n^2+n-1)] // Vincenzo Librandi, Nov 23 2010
(PARI) is(n)=isprime(n^3+n^2+n-1) \\ Charles R Greathouse IV, Feb 17 2017

Crossrefs

Cf. A045546, A125965-A125973.

Sequence in context: A259645 A191113 A345211 * A288526 A139544 A356959

Adjacent sequences: A125961 A125962 A125963 * A125965 A125966 A125967

Keyword

nonn

Author

Artur Jasinski, Dec 13 2006

Extensions

More terms from Vincenzo Librandi, Mar 26 2010

Status

approved