login
A072369
Cubes x such that x + reverse of x is a prime.
1
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
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
KEYWORD
easy,nonn,base
AUTHOR
Shyam Sunder Gupta, Jul 18 2002
EXTENSIONS
More terms from Amiram Eldar, Aug 24 2020
STATUS
approved