login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Palindromic concatenation of prime divisors of numbers from A192137.
4

%I #9 Aug 06 2024 02:06:50

%S 2,3,2,5,7,2,3,11,2,5,3,2,313,7,2,323,3,101,313,717,11,5,2,343,131,

%T 151,353,181,191,323,373,3,383,2,737,313,747,3113,7,313,353,373,383,

%U 343,1331,31113,767,353,313,2,323,5,373,3223,797,727,3,383,757,787,3553

%N Palindromic concatenation of prime divisors of numbers from A192137.

%e a(13) = 313 because A192137(13) = 39 = 3 * 13.

%t f[n_] := FromDigits[Flatten[IntegerDigits /@ FactorInteger[n][[;; , 1]]]]; Select[f /@ Range[2, 1900], PalindromeQ] (* _Amiram Eldar_, Aug 06 2024 *)

%Y Cf. A002113, A002385, A084317, A084092, A192137, A192139, A192140, A192141.

%K nonn,base

%O 1,1

%A _Jaroslav Krizek_, Jun 24 2011

%E More terms from _Amiram Eldar_, Aug 06 2024