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 A085134 #17 Dec 09 2021 01:06:14 %S A085134 1,2,3,4,5,6,7,8,9,252,343,525,686,48384,65856 %N A085134 Palindromes in A002473, that is, palindromes with the largest prime divisor < 10. %C A085134 No more terms < 10^100; probably no more terms. - _David Wasserman_, Feb 22 2005 %e A085134 252 = 2^2*3^2*7. %t A085134 Select[Range[66000],PalindromeQ[#]&&FactorInteger[#][[-1,1]]<10&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 07 2018 *) %o A085134 (PARI) isok(n) = if (n==1, return(1)); my(d=digits(n)); (Vecrev(d)==d) && (vecmax(factor(n, 7)[, 1]) < 8); \\ _Michel Marcus_, Dec 08 2021 %Y A085134 Intersection of A002113 and A002473. %K A085134 base,nonn %O A085134 1,2 %A A085134 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 06 2003 %E A085134 2 more terms from _David Wasserman_, Feb 22 2005 %E A085134 Name edited by _Michel Marcus_, Dec 07 2021