A236334 Cubes k such that k-2 is prime.

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

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

Cf. A000040 (prime numbers), Cf. A000578 (cubes).

Sequence in context: A295024 A167728 A050220 * A232286 A219133 A017079

Adjacent sequences: A236331 A236332 A236333 * A236335 A236336 A236337

Keyword

nonn

Author

K. D. Bajpai, Jan 22 2014

Status

approved