A153974 - OEIS

%I #25 Jan 25 2025 19:01:19

%S 2,4,8,10,14,16,26,34,38,40,74,80,106,110,116,124,136,158,178,184,190,

%T 206,224,230,238,256,274,280,316,320,338,340,386,410,428,446,458,464,

%U 470,484,496,530,544,550,556,590,626,634,644,646,674,710,718,728,730

%N Numbers n such that n^3 - 3 is prime.

%C 2^3 - 3 = 5 is prime, 4^3 - 3 = 61 is prime, ...

%H Nathaniel Johnston, <a href="/A153974/b153974.txt">Table of n, a(n) for n = 1..10000</a>

%t a[n_]:=n^x-y;lst={};x=3;y=3;Do[If[PrimeQ[a[n]],AppendTo[lst,n]],{n,0,6!}];lst

%t Select[Range[2, 1000], PrimeQ[#^3 - 3] &] (* _G. C. Greubel_, Sep 01 2016 *)

%o (Magma) [n: n in [2..500] | IsPrime(n^3-3)]; // _Vincenzo Librandi_, Nov 26 2010

%o (PARI) is(n)=isprime(n^3-3) \\ _Charles R Greathouse IV_, Feb 17 2017

%Y Cf. A028870, A028873, A038599, A108701, A153975.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 03 2009

%E First two terms 0,1, removed by _Zak Seidov_, Mar 14 2009