%I #2 Mar 31 2012 12:38:20
%S 2,3,9,12,30,57,66,87,111,120,195,243,246,279,378,381,432,450,471,480,
%T 597,651,759,810,933,987,1053,1356,1362,1404,1407,1410,1548,1563,1638,
%U 1752,1758,1998,2016,2115,2157,2259,2280,2385,2499,2607,2775,2817,2826
%N Integers a(n) such that cube(n)-square(n)-1 and cube(n)+square(n)+1 are primes.
%C 2^3-2^2-1=3;2^3+2^2+1=13, 3^3-3^2-1=17;3^3+3^2+1=37, ...
%t lst={};Do[c=n^3;s=n^2;p1=c-s-1;p2=c+s+1;If[PrimeQ[p1]&&PrimeQ[p2],AppendTo[lst,n]],{n,7!}];lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 30 2009
|