A154713 Cubes such that cube-+5 are primes.

8, 1728, 110592, 287496, 474552, 2000376, 7077888, 34012224, 191102976, 401947272, 631628712, 5890514616, 14996130696, 15550119936, 19421724672, 32339798856, 35158608576, 62949797352, 68518346688, 76657300992

Offset

1,1

Links

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

Formula

A087696 INTERSECT A000578. [From R. J. Mathar, Jan 15 2009]

Mathematica

lst={}; Do[p=n^3; If[PrimeQ[p-5]&&PrimeQ[p+5], AppendTo[lst, p]], {n, 2, 2*7!, 2}]; lst
Select[Range[4300]^3, And@@PrimeQ[#+{5, -5}]&] (* Harvey P. Dale, Jun 19 2012 *)

Crossrefs

Cf. A144938, A154709, A154710, A154711, A154712

Sequence in context: A230512 A295023 A017295 * A061719 A050642 A050648

Adjacent sequences: A154710 A154711 A154712 * A154714 A154715 A154716

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Status

approved