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 A106095 #6 Jan 02 2019 03:02:39
%S A106095 7,17,37,47,67,71,73,107,127,137,157,167,173,227,257,271,277,307,317,
%T A106095 337,347,367,373,457,467,547,557,571,577,607,617,647,673,677,701,727,
%U A106095 733,743,751,757,761,773,1117,1171,1217,1237,1277,1307,1327,1367
%N A106095 Primes with maximal digit = 7.
%H A106095 Robert Israel, <a href="/A106095/b106095.txt">Table of n, a(n) for n = 1..10000</a>
%p A106095 Res:= 7:
%p A106095 A:= {7}: B:= {$1..6}:
%p A106095 for d from 2 to 4 do
%p A106095 A:= {seq(seq(10*a+i,i=0..7),a=A), seq(10*b+7,b=B)}:
%p A106095 B:= {seq(seq(10*b+i,i=0..6),b=B)}:
%p A106095 Res:= Res, op(sort(convert(select(isprime,A),list)))
%p A106095 od:
%p A106095 Res; # _Robert Israel_, Jan 01 2019
%t A106095 Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==7&]
%K A106095 nonn,base
%O A106095 1,1
%A A106095 _Zak Seidov_, May 07 2005