login
A236334
Cubes k such that k-2 is prime.
1
729, 3375, 6859, 19683, 29791, 50653, 300763, 753571, 970299, 1295029, 1771561, 2146689, 2460375, 3048625, 3442951, 4492125, 6539203, 6751269, 8120601, 8869743, 9393931, 10218313, 13997521, 17373979, 18609625, 19034163, 21253933, 21717639, 24137569
OFFSET
1,1
LINKS
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
Cf. A000040 (prime numbers), Cf. A000578 (cubes).
Sequence in context: A295024 A167728 A050220 * A232286 A219133 A017079
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Jan 22 2014
STATUS
approved