|
%I #12 Oct 10 2019 22:45:29
%S 30,42,66,70,105,110,154,165,231,385,606,786,906,1010,1086,1146,1310,
%T 1414,1510,1515,1810,1834,1878,1910,1965,2114,2118,2121,2222,2238,
%U 2265,2298,2534,2674,2715,2751,2865,2882,3130,3171,3322,3333,3530,3535,3730
%N Numbers with exactly 3 distinct palindromic prime factors.
%t Select[Range[4000],PrimeOmega[#]==PrimeNu[#]==3&&AllTrue[FactorInteger[#][[All,1]],PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 27 2019 *)
%Y Cf. A014612, A046369.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jun 15 1998
|
