OFFSET
1,1
EXAMPLE
(127-2)^(1/3) - 2 = 3 and (127-2)^(1/3) + 2 = 7, so 127 is in the sequence.
MATHEMATICA
q=2; lst={}; Do[p=Prime[n]; r=(p-q)^(1/3)-q; u=(p-q)^(1/3)+q; If[PrimeQ[r]&&PrimeQ[u], AppendTo[lst, p]], {n, 4*9!}]; lst
lst = {}; p = 0; While[p < 2955, If[ PrimeQ[p - 2] && PrimeQ[p + 2] && PrimeQ[p^3 + 2], AppendTo[lst, p^3 + 2]]; p++ ]; lst (* Robert G. Wilson v, Mar 08 2009 *)
Select[Prime[Range[10^6]], AllTrue[Surd[#-2, 3]+{2, -2}, PrimeQ]&] (* The program generates the first 7 terms of the sequence. *) (* Harvey P. Dale, Aug 31 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 01 2009
EXTENSIONS
a(8)-a(21) from Robert G. Wilson v, Mar 08 2009
STATUS
approved