A105645 Numbers n such that the n-th prime - n is a cube.
1, 2, 38, 152, 542, 746, 1632, 2243, 5317, 7520, 15006, 33156, 39925, 101946, 130340, 136572, 331757, 397252, 560017, 722898, 1037524, 1197551, 1737710, 1754109, 2160356, 2217439, 2559702, 2820804, 5173565, 6197364, 7014969, 7597461
Offset: 1
Keywords
Crossrefs
Cf. A064370.
Programs
-
Mathematica
Transpose[Select[Table[{Prime[n],n},{n,76*10^5}],IntegerQ[Surd[#[[1]]- #[[2]],3]]&]][[2]] (* Harvey P. Dale, Jun 22 2016 *)
-
PARI
isok(n) = ispower(prime(n)-n, 3); \\ Michel Marcus, Oct 05 2013
Extensions
a(14)-a(32) from Donovan Johnson, Dec 02 2009
Comments