OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..538
EXAMPLE
729 is in the sequence because 729 = 9^3 and 729-2 = 727 is prime.
MAPLE
KD := proc() local a, b; a:=n^3; b:=isprime(a-2); if (b) then RETURN (a); fi; end: seq(KD(), n=0..500);
MATHEMATICA
Select[Range[1, 500]^3, PrimeQ[# - 2] &] (* or *) Do[k = n^3; If[PrimeQ[k - 2], Print[k]], {n, 1, 10000}]
PROG
(PARI) s=[]; for(n=1, 400, if(isprime(n^3-2), s=concat(s, n^3))); s \\ Colin Barker, Jan 22 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Jan 22 2014
STATUS
approved