|
%I #11 Apr 03 2021 08:43:38
%S 6,10,14,15,21,22,33,35,55,77,202,262,302,303,362,382,393,453,505,543,
%T 573,626,655,706,707,746,755,766,905,917,939,955,1057,1059,1111,1119,
%U 1149,1267,1337,1441,1454,1514,1565,1574,1594,1661,1765,1838,1858,1865
%N Numbers with exactly 2 distinct palindromic prime factors.
%H Amiram Eldar, <a href="/A046400/b046400.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[2000], (f = FactorInteger[#])[[;; , 2]] == {1, 1} && And @@ PalindromeQ /@ f[[;; , 1]] &] (* _Amiram Eldar_, Apr 03 2021 *)
%Y Cf. A001358, A046368.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jun 15 1998
|
