|
%I #9 Jun 22 2016 18:28:42
%S 1,2,38,152,542,746,1632,2243,5317,7520,15006,33156,39925,101946,
%T 130340,136572,331757,397252,560017,722898,1037524,1197551,1737710,
%U 1754109,2160356,2217439,2559702,2820804,5173565,6197364,7014969,7597461
%N Numbers n such that the n-th prime - n is a cube.
%C 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.
%t Transpose[Select[Table[{Prime[n],n},{n,76*10^5}],IntegerQ[Surd[#[[1]]- #[[2]],3]]&]][[2]] (* _Harvey P. Dale_, Jun 22 2016 *)
%o (PARI) isok(n) = ispower(prime(n)-n, 3); \\ _Michel Marcus_, Oct 05 2013
%Y Cf. A064370.
%K nonn
%O 1,2
%A _Zak Seidov_, May 03 2005
%E a(14)-a(32) from _Donovan Johnson_, Dec 02 2009
|
