A046400 Numbers with exactly 2 distinct palindromic prime factors.

6, 10, 14, 15, 21, 22, 33, 35, 55, 77, 202, 262, 302, 303, 362, 382, 393, 453, 505, 543, 573, 626, 655, 706, 707, 746, 755, 766, 905, 917, 939, 955, 1057, 1059, 1111, 1119, 1149, 1267, 1337, 1441, 1454, 1514, 1565, 1574, 1594, 1661, 1765, 1838, 1858, 1865

Offset: 1

Author

Patrick De Geest, Jun 15 1998

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001358, A046368.

Programs

Mathematica

Select[Range[2000], (f = FactorInteger[#])[[;; , 2]] == {1, 1} && And @@ PalindromeQ /@ f[[;; , 1]] &] (* Amiram Eldar, Apr 03 2021 *)