A072369 Cubes x such that x + reverse of x is a prime.

1, 512, 17576, 39304, 42875, 1643032, 1815848, 2352637, 2685619, 3511808, 4826809, 6331625, 7529536, 9528128, 125000000, 153990656, 155720872, 175616000, 181321496, 183250432, 208527857, 265847707, 281011375, 306182024, 308915776, 334255384, 357911000, 403583419

Offset: 1

Author

Shyam Sunder Gupta, Jul 18 2002

Keywords

• easy
• nonn
• base

Examples

			512 is a term because 512 = 9^3 is a cube and 512 + 215 = 727 is a prime.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000578, A056964, A072366.

Programs

Mathematica

Select[Range[1000], PrimeQ[#^3 + FromDigits @ Reverse @ IntegerDigits[#^3]] &]^3 (* Amiram Eldar, Aug 24 2020 *)
Select[Range[1000]^3,PrimeQ[#+IntegerReverse[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 18 2020 *)

Extensions

More terms from Amiram Eldar, Aug 24 2020