|
%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
| 