|
%I #6 Jul 29 2021 11:19:34
%S 0,2,4,16,26,74,106,124,184,190,224,280,410,470,496,634,644,764,766,
%T 880,896,1126,1196,1424,1430,1616,1694,1706,1786,1820,1876,1964,1970,
%U 2210,2216,2294,2494,2746,2816,3010,3026,3284,3464,3574,3616,3794,3820,3854
%N Numbers of the form : n^3-3=prime, n^3+3=prime.
%H Harvey P. Dale, <a href="/A143904/b143904.txt">Table of n, a(n) for n = 0..1000</a>
%t lst={};Do[m=n^3;If[PrimeQ[m-3]&&PrimeQ[m+3],AppendTo[lst,n]],{n,0,10^4}];lst
%t Select[Range[0,4000,2],AllTrue[#^3+{3,-3},PrimeQ]&] (* _Harvey P. Dale_, Jul 29 2021 *)
%K nonn
%O 0,2
%A _Vladimir Joseph Stephan Orlovsky_, Sep 04 2008
|
