%I #12 Jun 26 2021 15:32:31

%S 2,727,79697,85147,100699,3946493,9715169,10301029,11592961,11851481,

%T 13888793,13913093,17746387,125000521,176232571,358030753,417302813,

%U 433748423,726463627,810090007,817807817,832595227,854121557,875444677

%N Primes which can be represented as the sum of a cube and its reverse.

%H Harvey P. Dale, <a href="/A072384/b072384.txt">Table of n, a(n) for n = 1..1000</a>

%e 727 is a term because it is prime and it is the sum of cube 512 and its reverse 215.

%t Select[#+IntegerReverse[#]&/@(Range[1000]^3),PrimeQ]//Union (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 21 2016 *)

%o (Python)

%o from sympy import isprime

%o def rev(n): return int(str(n)[::-1])

%o def aupto(lim):

%o c = [p**3 for p in range(1, int(lim**(1/3))+2)]

%o s = set(ara for ara in (a + rev(a) for a in c) if ara <= lim)

%o return sorted(filter(isprime, s))

%o print(aupto(10**9)) # _Michael S. Branicky_, Jun 26 2021

%Y Cf. A000578, A004086, A004165, A319603.

%K base,nonn

%O 1,1

%A _Shyam Sunder Gupta_, Jul 20 2002