A192141 Palindromic concatenation of prime divisors of numbers from A192140.

2, 3, 2, 5, 7, 2, 3, 11, 101, 11, 131, 151, 181, 191, 313, 7, 353, 373, 383, 727, 383, 757, 787, 797, 919, 929, 11, 73137, 101, 10301, 10501, 10601, 11311, 11411, 12421, 12721, 12821, 13331, 13831, 13931, 14341, 11, 14741, 15451, 15551, 16061, 16361, 16561, 16661

Offset: 1

Author

Jaroslav Krizek, Jun 24 2011

Keywords

• nonn
• base

Examples

			a(21) = 383 because A192140(21) = 747 = 3 * 83.
		

Crossrefs

Cf. A002113, A002385, A084317, A084092, A192137, A192138, A192139, A192140.

Programs

Mathematica

f[n_] := FromDigits[Flatten[IntegerDigits /@ FactorInteger[n][[;; , 1]]]]; f /@ Select[Range[2, 20000], And @@ (PalindromeQ /@ {#, f[#]}) &] (* Amiram Eldar, Aug 06 2024 *)

Extensions

More terms from Amiram Eldar, Aug 06 2024