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

Author

Artur Jasinski, Dec 13 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A045546, A125965-A125973.

Programs

Magma

[n: n in [0..1000] | IsPrime(n^3+n^2+n-1)] // Vincenzo Librandi, Nov 23 2010

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}]

PARI

is(n)=isprime(n^3+n^2+n-1) \\ Charles R Greathouse IV, Feb 17 2017

Extensions

More terms from Vincenzo Librandi, Mar 26 2010