[go: up one dir, main page]

login
A046400
Numbers with exactly 2 distinct palindromic prime factors.
4
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,1
LINKS
MATHEMATICA
Select[Range[2000], (f = FactorInteger[#])[[;; , 2]] == {1, 1} && And @@ PalindromeQ /@ f[[;; , 1]] &] (* Amiram Eldar, Apr 03 2021 *)
CROSSREFS
Sequence in context: A180074 A338905 A093772 * A100660 A088709 A225706
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved