|
|
A105645
|
|
Numbers n such that the n-th prime - n is a cube.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Corresponding cubes are: {1,1,5,9,15,17,23,26,36,41,53,71,76}^3. Cf. A064370: numbers n such that the n-th prime - n is a square.
|
|
LINKS
|
|
|
MATHEMATICA
|
Transpose[Select[Table[{Prime[n], n}, {n, 76*10^5}], IntegerQ[Surd[#[[1]]- #[[2]], 3]]&]][[2]] (* Harvey P. Dale, Jun 22 2016 *)
|
|
PROG
|
(PARI) isok(n) = ispower(prime(n)-n, 3); \\ Michel Marcus, Oct 05 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|