login
Cubes which can be represented as sum of a prime and its reverse in at least one way.
0

%I #8 Jul 26 2013 15:14:12

%S 353393243,1058089859,12503322161,117001919971,344030029343

%N Cubes which can be represented as sum of a prime and its reverse in at least one way.

%C a(6) > 2*10^13. - _Giovanni Resta_, Jul 25 2013

%H Shyam Sunder Gupta, <a href="http://www.shyamsundergupta.com/canyoufind.htm">Can You Find ( CYF No. 21)</a>

%e 353393243 = 203993941 + 149399302.

%t cubeQ[n_Integer?Positive] := IntegerQ[n^(1/3)] ; Union[Select[Table[Prime[x] + FromDigits[Reverse[IntegerDigits[Prime[x]]]], {x, 1000000000}], cubeQ]]

%Y Cf. A067030, A227525.

%K nonn,base

%O 1,1

%A _Shyam Sunder Gupta_, Jul 18 2013

%E a(5) from _Giovanni Resta_, Jul 25 2013