%I #11 Jul 02 2017 19:35:18
%S 2,3,4,5,7,8,9,11,16,25,27,32,39,49,64,69,81,101,117,119,121,125,128,
%T 129,131,151,159,181,191,207,219,243,249,256,259,313,329,339,343,351,
%U 353
%N Numbers m such that their concatenation of prime divisors are palindromic numbers.
%C The corresponding values of palindromic concatenation in A192138. Superset of A002385 (palindromic primes), A192139 and A192140.
%H Harvey P. Dale, <a href="/A192137/b192137.txt">Table of n, a(n) for n = 1..1000</a>
%e Concatenation of prime divisors of 39 = 3 * 13 is 313 (palindromic number).
%t Select[Range[2,500],PalindromeQ[FromDigits[Flatten[IntegerDigits/@ FactorInteger[ #][[All,1]]]]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 02 2017 *)
%Y Cf. A002113, A002385, A084317, A084092, A192138, A192139, A192140, A192141.
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Jun 24 2011
|