login
Semiprimes (A001358) whose digit reversal is a cube.
1

%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