%I #16 Mar 19 2020 17:31:36
%S 4,9,25,39,49,69,119,121,129,159,219,249,259,329,339,403,469,669,679,
%T 1207,1329,1589,1703,2319,2321,2359,2649,2701,3039,3421,3503,3629,
%U 3639,3899,4303,4607,4839,5603,5739,6209,6401,6979,7269,7663,7819,8203,8519
%N Semiprimes whose prime factors, when concatenated, yield a palindrome.
%H Harvey P. Dale, <a href="/A046451/b046451.txt">Table of n, a(n) for n = 1..1000</a>
%e 3899 = 7 * 557 -> 7557 is palindromic.
%t d[n_] := IntegerDigits[n]; co[n_, k_] := Nest[Flatten[d[{#, n}]] &, n, k - 1]; Select[Range[8520], PrimeOmega[#] == 2 && Reverse[x = Flatten[d[co @@@ FactorInteger[#]]]] == x &] (* _Jayanta Basu_, Jun 26 2013 *)
%t Select[Range[9000],PrimeOmega[#]==2&&PalindromeQ[FromDigits[ Flatten[ IntegerDigits/@FactorInteger[#][[All,1]]]]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 19 2020 *)
%Y Cf. A046447.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jul 15 1998
%E Edited by _Charles R Greathouse IV_, Apr 28 2010
|