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
KEYWORD
easy,nonn,base
AUTHOR
Shyam Sunder Gupta, Jul 18 2002
EXTENSIONS
More terms from Amiram Eldar, Aug 24 2020
STATUS
approved