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 A211654 #24 Sep 08 2022 08:46:02
%S A211654 2,3,5,7,11,13,17,19,23,29,31,37,47,59,67,71,73,79,89,97,101,103,107,
%T A211654 109,113,127,131,137,139,149,157,167,173,179,193,197,199,223,227,229,
%U A211654 233,239,257,269,271,277,293,307,311,317,337,347,349,359,367,373
%N A211654 Primes that remain prime when their digits are sorted into nondecreasing order.
%C A211654 In sequence A004185 these are referred to as "sortable primes". Nontrivial terms (with digits not in nondecreasing order) are listed in A086042. - _M. F. Hasler_, Jul 30 2019.
%H A211654 Francis J. McDonnell, <a href="/A211654/b211654.txt">Table of n, a(n) for n = 1..10000</a>
%H A211654 Francis J. McDonnell, <a href="/A211654/a211654.java.txt">Java Program</a>
%e A211654 173 is prime and after the digits are sorted into nondecreasing order we obtain 137, which is prime.
%t A211654 Select[Prime[Range[200]], PrimeQ[FromDigits[Sort[IntegerDigits[#]]]] &] (* _T. D. Noe_, Apr 17 2012 *)
%o A211654 (PARI) select( is_A211654(p)={isprime(fromdigits(vecsort(digits(p))))&&isprime(p)}, primes([1,999])) \\ _M. F. Hasler_, Jul 30 2019
%o A211654 (Magma) [p:p in PrimesUpTo(400)| IsPrime(Seqint(Reverse(Sort(Intseq(p,10)))))]; // _Marius A. Burtea_, Jul 30 2019
%Y A211654 Cf. A028864, A028867, A211655.
%Y A211654 Cf. A086042 (nontrivial solutions), A004185 (n with digits sorted).
%K A211654 nonn,base
%O A211654 1,1
%A A211654 _Francis J. McDonnell_, Apr 17 2012