OFFSET
1,1
COMMENTS
3^3-2^2=23;3^3+2^2=31, 6^3-5^2=191;6^3+5^2=241, 7^3-6^2=307;7^3+6^2=379, ...
MATHEMATICA
lst={}; Do[k=n; c=n^3; Label[ax]; s=k^2; p1=c-s; p2=c+s; If[PrimeQ[p1]&&PrimeQ[p2], AppendTo[lst, n], k--; If[k>0, Goto[ax]]], {n, 2*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 30 2009
STATUS
approved