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 A085869 #15 Mar 09 2018 20:12:01 %S A085869 1,2,3,4,5,6,7,8,9,11,13,15,17,22,26,31,33,37,39,44,51,55,58,62,66,71, %T A085869 73,77,79,85,88,93,97,99,101,107,111,113,115,117,121,122,123,129,131, %U A085869 141,143,149,151,155,157,158,159,161,165,167,169,171,177,178,179,181 %N A085869 Numbers n such that n and its digit reversal have the same prime signature. %H A085869 Alois P. Heinz, <a href="/A085869/b085869.txt">Table of n, a(n) for n = 1..20000</a> %e A085869 15 is a member 15 = 3*5 and 51 = 3*17 both have the prime signature p*q, p and q are primes. %p A085869 s:= n-> sort(map(i-> i[2], ifactors(n)[2])): %p A085869 a:= proc(n) option remember; local k; for k from 1+a(n-1) while %p A085869 s(k)<>s((p-> parse(cat(seq(p[-i], i=1..length(p)))))(""||k)) do od; k %p A085869 end: a(0):=0: %p A085869 seq(a(n), n=1..80); # _Alois P. Heinz_, Mar 09 2018 %Y A085869 Cf. A062895. %K A085869 base,easy,nonn %O A085869 1,2 %A A085869 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 06 2003 %E A085869 Corrected and extended by _Ray Chandler_, Aug 08 2003