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 A052016 #21 Mar 22 2014 05:05:27
%S A052016 2,3,5,7,43,76543
%N A052016 Primes with digits in descending order that differ exactly by 1.
%C A052016 Primes in A138142. - _Omar E. Pol_, Dec 07 2008
%t A052016 fQ[n_]:=Module[{id=IntegerDigits[n],}, n < 10 || Union[Differences[id]] == {-1}]; Select[Prime[Range[10000]], fQ] (* _Vladimir Joseph Stephan Orlovsky_, Dec 29 2010 *)
%Y A052016 Cf. A052017, A048398, A006055, A138142.
%K A052016 nonn,base,fini,full
%O A052016 1,1
%A A052016 _Patrick De Geest_, Nov 15 1999