login
A227642
Cubes which can be represented as sum of a prime and its reverse in at least one way.
0
353393243, 1058089859, 12503322161, 117001919971, 344030029343
OFFSET
1,1
COMMENTS
a(6) > 2*10^13. - Giovanni Resta, Jul 25 2013
EXAMPLE
353393243 = 203993941 + 149399302.
MATHEMATICA
cubeQ[n_Integer?Positive] := IntegerQ[n^(1/3)] ; Union[Select[Table[Prime[x] + FromDigits[Reverse[IntegerDigits[Prime[x]]]], {x, 1000000000}], cubeQ]]
CROSSREFS
Sequence in context: A288273 A219271 A167517 * A189124 A189125 A258610
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Jul 18 2013
EXTENSIONS
a(5) from Giovanni Resta, Jul 25 2013
STATUS
approved