%I #6 Jan 18 2016 15:34:56
%S 10,46,215,3194,9586,27845,35605,40393,52651,63379,70597,76121,84601,
%T 98342,119753,189622,211591,234413,291149,376219,485038,616571,778841,
%U 886877,946711,2134493,2198998,2579365,3405221,3735467,4430089
%N Semiprimes (A001358) whose digit reversal is a cube.
%e 46=2*23 is semiprime and 64=4^3.
%t Select[Range[5*10^6],PrimeOmega[#]==2&&IntegerQ[Surd[ IntegerReverse[ #],3]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 18 2016 *)
%Y Cf. A001358, A115740.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, Jan 31 2006