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,2

Links

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

Example

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

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 *)

Crossrefs

Cf. A000578, A056964, A072366.

Sequence in context: A257147 A254579 A195657 * A140251 A254299 A283340

Adjacent sequences: A072366 A072367 A072368 * A072370 A072371 A072372

Keyword

easy,nonn,base

Author

Shyam Sunder Gupta, Jul 18 2002

Extensions

More terms from Amiram Eldar, Aug 24 2020

Status

approved