A073574 - OEIS

%I #18 Sep 08 2022 08:45:06

%S 1,5,7,13,17,41,73,77,101,103,133,143,145,161,173,181,187,251,271,283,

%T 293,313,325,391,395,425,461,497,503,511,523,581,593,595,647,671,703,

%U 733,745,803,805,815,833,847,853,875,941,965,973,997,1001,1021,1085,1091,1097,1111,1141,1183

%N Numbers n such that n^3 + 6 is prime.

%H Vincenzo Librandi, <a href="/A073574/b073574.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[ Range[ 950 ], PrimeQ[ #^3+6 ] & ]

%t Select[Range[1,1201,2],PrimeQ[#^3+6]&] (* Because all terms must be odd, there is no need to test even numbers *) (* _Harvey P. Dale_, Oct 03 2018 *)

%o (Magma)[n: n in [0..1500]|IsPrime(n^3+6)]; // _Vincenzo Librandi_, Dec 16 2010

%o (PARI) is(n)=isprime(n^3+6) \\ _Charles R Greathouse IV_, Jun 12 2017

%Y Cf. A067200 (n^3+2 is prime).

%K nonn,easy

%O 1,2

%A _Zak Seidov_, Sep 01 2002

%E More terms from _Vincenzo Librandi_, Dec 16 2010