This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A046401 #12 Oct 10 2019 22:45:29 %S A046401 30,42,66,70,105,110,154,165,231,385,606,786,906,1010,1086,1146,1310, %T A046401 1414,1510,1515,1810,1834,1878,1910,1965,2114,2118,2121,2222,2238, %U A046401 2265,2298,2534,2674,2715,2751,2865,2882,3130,3171,3322,3333,3530,3535,3730 %N A046401 Numbers with exactly 3 distinct palindromic prime factors. %t A046401 Select[Range[4000],PrimeOmega[#]==PrimeNu[#]==3&&AllTrue[FactorInteger[#][[All,1]],PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 27 2019 *) %Y A046401 Cf. A014612, A046369. %K A046401 nonn,base %O A046401 1,1 %A A046401 _Patrick De Geest_, Jun 15 1998