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 A085751 #12 Dec 15 2017 17:36:28 %S A085751 4,6,9,15,22,26,33,39,49,51,55,58,62,77,85,93,94,111,115,121,122,123, %T A085751 129,141,143,155,158,159,161,169,177,178,183,185,187,202,203,205,221, %U A085751 226,262,265,289,302,303,314,319,321,323,326,327,329,335,339,341,355 %N A085751 Semiprimes whose reversal is also a semiprime. %H A085751 T. D. Noe, <a href="/A085751/b085751.txt">Table of n, a(n) for n = 1..1000</a> %t A085751 Select[Range[400],PrimeOmega[#]==PrimeOmega[IntegerReverse[#]]==2&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 09 2016 *) %o A085751 (PARI) rev(n)=subst(Polrev(digits(n)), 'x, 10) %o A085751 issemi(n)=bigomega(n)==2 %o A085751 list(lim)=my(v=List()); forprime(p=2, lim\2, forprime(q=2, min(lim\p, p), if(issemi(rev(p*q)), listput(v, p*q)))); Set(v) \\ _Charles R Greathouse IV_, Jan 27 2015 %Y A085751 Cf. A001358, A097393. %K A085751 base,easy,nonn %O A085751 1,1 %A A085751 _Jason Earls_, Jul 21 2003