|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[2000], (f = FactorInteger[#])[[;; , 2]] == {1, 1} && And @@ PalindromeQ /@ f[[;; , 1]] &] (* Amiram Eldar, Apr 03 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|