OFFSET
1,1
COMMENTS
11-3^2=2;11-2^3=3, 19-4^2=3,19-2^3=11,..
MATHEMATICA
lst={}; Do[p2=n-Floor[Sqrt[n]]^2; p3=n-Floor[n^(1/3)]^3; If[PrimeQ[p2]&&PrimeQ[p3]&&PrimeQ[n], AppendTo[lst, n]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 27 2010
STATUS
approved