login
A125964
Numbers k such that k^3 + k^2 + k - 1 is prime.
6
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 13 2006
EXTENSIONS
More terms from Vincenzo Librandi, Mar 26 2010
STATUS
approved