cp's OEIS Frontend

A106094 Primes with maximal digit = 8.

%I A106094 #6 May 01 2019 15:32:01
%S A106094 83,181,281,283,383,487,587,683,787,811,821,823,827,853,857,863,877,
%T A106094 881,883,887,1087,1181,1187,1283,1381,1481,1483,1487,1583,1783,1787,
%U A106094 1801,1811,1823,1831,1847,1861,1867,1871,1873,1877
%N A106094 Primes with maximal digit = 8.
%H A106094 Robert Israel, <a href="/A106094/b106094.txt">Table of n, a(n) for n = 1..10000</a>
%p A106094 Res:= NULL: count:= 0:
%p A106094 C:= {$1..8}: B:= {8}:
%p A106094 for d from 2 while count < 100 do
%p A106094    B:= map(t -> 10*t+8, C) union map(t -> seq(10*t+j,j=0..7),B);
%p A106094    C:= map(t -> seq(10*t+i,i=0..8), C);
%p A106094    V:= select(isprime,B);
%p A106094    count:= count + nops(V);
%p A106094    Res:= Res, op(sort(convert(V,list)));
%p A106094 od:
%p A106094 Res; # _Robert Israel_, May 01 2019
%t A106094 Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==8&]
%K A106094 nonn,base
%O A106094 1,1
%A A106094 _Zak Seidov_, May 07 2005