A154710 Cubes such that cube-+3 are primes.

8, 64, 4096, 17576, 405224, 1191016, 1906624, 6229504, 6859000, 11239424, 21952000, 68921000, 103823000, 122023936, 254840104, 267089984, 445943744, 449455096, 681472000, 719323136, 1427628376, 1710777536, 2887553024

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

lst={}; Do[p=n^3; If[PrimeQ[p-3]&&PrimeQ[p+3], AppendTo[lst, p]], {n, 2, 8!, 2}]; lst
Select[Range[1500]^3, AllTrue[#+{3, -3}, PrimeQ]&] (* Harvey P. Dale, Nov 23 2022 *)

Crossrefs

Cf. A144938, A154709

Sequence in context: A352721 A278145 A287230 * A069033 A087337 A061586

Adjacent sequences: A154707 A154708 A154709 * A154711 A154712 A154713

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Status

approved