OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
3-1^3=2, 4-1^3=3, ..., 10-2^3=2, 11-2^3=3, ..., 29-3^3=2, ....
MATHEMATICA
lst={}; Do[p=n-Floor[n^(1/3)]^3; If[PrimeQ[p], AppendTo[lst, n]], {n, 6!}]; lst
Select[Range[300], PrimeQ[#-Floor[Surd[#, 3]]^3]&] (* Harvey P. Dale, May 31 2017 *)
PROG
(PARI) is(n)=isprime(n - sqrtnint(n, 3)) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 27 2010
STATUS
approved