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 A296520 #19 Dec 17 2017 22:18:43
%S A296520 13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,103,107,
%T A296520 109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,
%U A296520 211,223,227,229,239,241,251,257,263,269,271
%N A296520 Multidigit primes in which the largest digit appears only once.
%e A296520 In 13 the last digit is the largest, in 131 the middle digit and in 41 the first digit.
%t A296520 Reap[Do[p=Prime[k];id=IntegerDigits[p];If[Count[id,Max[id]]==1,Sow[p]],{k,6,100}]][[2,1]]
%t A296520 (* Second program: *)
%t A296520 Select[Prime@ Range[5, 60], Last@ Select[DigitCount[#], # > 0 &] == 1 &] (* _Michael De Vlieger_, Dec 14 2017 *)
%Y A296520 A156666 is a subsequence (except that the single-digit primes are included).
%Y A296520 Cf. A028864, A052015, A106118, A106119.
%K A296520 base,nonn
%O A296520 1,1
%A A296520 _Zak Seidov_, Dec 14 2017