|
%I #7 Nov 21 2013 12:49:38
%S 3,45,63,117,507,537,717,783,807,867,993,1065,1335,1527,2295,2355,
%T 2817,2823,3093,3117,3357,4173,5067,5085,5535,6087,6333,6357,6393,
%U 6987,7407,7713,7767,8577,8877,9123,9615,9945,10065,10377,10575,10725,10845,12795
%N Numbers n such that n^3 - 4 and n^3 + 4 are prime.
%C 3^3 - 4 = 23, 3^3 + 4 = 31
%H Harvey P. Dale, <a href="/A161589/b161589.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[a=n^3;If[PrimeQ[a-4]&&PrimeQ[a+4],AppendTo[lst,n]],{n,8!}];lst
%t Select[Range[2,13000],And@@PrimeQ[#^3+{4,-4}]&] (* _Harvey P. Dale_, May 13 2012 *)
%Y Subsequence of A016945.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009
%E Edited by _Charles R Greathouse IV_, Nov 11 2009
|
