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 A046357 #14 Oct 10 2019 22:52:37 %S A046357 4,6,8,9,121,1331,5445,10201,13231,14641,15251,18281,19291,31613, %T A046357 35653,37673,38683,52525,59895,1030301,1336331,3192913,8117118, %U A046357 104060401,134969431,286121682,319464913,677707776 %N A046357 Composite palindromes with only palindromic prime factors whose sum is palindromic (counted with multiplicity). %F A046357 A046355 INTERSECT A002113. - _R. J. Mathar_, Sep 09 2015 %e A046357 319464913 = 10301 * 31013 and 10301 + 31013 = 41314 and all are palindromic. %t A046357 palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; t={}; Do[If[!PrimeQ[n] && And@@palQ/@Join[{n, Total[Times@@@(x=FactorInteger[n])]}, First/@x], AppendTo[t,n]],{n, 2, 3.2*10^6}]; t (* _Jayanta Basu_, Jun 05 2013 *) %Y A046357 Cf. A046355, A046356. %K A046357 nonn,base %O A046357 1,1 %A A046357 _Patrick De Geest_, Jun 15 1998