%I #9 Apr 29 2015 11:26:00
%S 2,3,4,8,9,11,14,15,16,18,21,23,24,29,31,35,36,38,41,45,48,55,58,59,
%T 60,64,69,70,71,76,81,86,98,104,108,111,113,115,119,123,126,128,130,
%U 136,140,150,151,155,163,168,174,176,183,184,185,186,188,189,191,203,206
%N Numbers n for which n^3-n-1 is prime.
%H T. D. Noe, <a href="/A126421/b126421.txt">Table of n, a(n) for n = 1..1000</a>
%t a = {}; Do[If[PrimeQ[x^3 - x - 1], AppendTo[a, x]], {x, 1, 1000}]; a
%t Select[Range[300],PrimeQ[#^3-#-1]&] (* _Harvey P. Dale_, Jul 22 2013 *)
%o (PARI) is(n)=isprime(n^3-n-1) \\ _Charles R Greathouse IV_, Apr 29 2015
%Y Cf. A002327, A116581, A126420.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 26 2006
|