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 A086051 #6 Jun 08 2025 16:15:42
%S A086051 31,71,73,97,131,173,193,197,271,293,311,317,373,397,419,439,491,547,
%T A086051 571,593,617,647,659,673,719,727,733,739,743,751,757,761,839,919,937,
%U A086051 941,947,953,971,983,991,1171,1213,1231,1291,1297,1321,1327,1429,1549
%N A086051 Nontrivial numbers which are prime, contain no zero digits and yield another prime when their digits are sorted in ascending order.
%C A086051 Primes with digits already in ascending order (like 13 and 2357) are trivial cases and are therefore excluded.
%H A086051 Harvey P. Dale, <a href="/A086051/b086051.txt">Table of n, a(n) for n = 1..1000</a>
%e A086051 a(1)=31 because an ascending sort of 31's digits yields 13 which is also prime. a(100)=3527 because an ascending sort of 3527's digits yields 2357 which is also prime.
%t A086051 sdaQ[n_]:=Module[{idn=IntegerDigits[n],srt},srt=Sort[idn];!MemberQ[ idn,0] &&idn!=srt&&PrimeQ[FromDigits[srt]]]; Select[Prime[Range[300]],sdaQ] (* _Harvey P. Dale_, Dec 14 2014 *)
%Y A086051 Cf. A003459, A086402.
%K A086051 base,nonn
%O A086051 1,1
%A A086051 _Chuck Seggelin_, Jul 07 2003