OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
Res:= NULL: count:= 0:
C:= {$1..8}: B:= {8}:
for d from 2 while count < 100 do
B:= map(t -> 10*t+8, C) union map(t -> seq(10*t+j, j=0..7), B);
C:= map(t -> seq(10*t+i, i=0..8), C);
V:= select(isprime, B);
count:= count + nops(V);
Res:= Res, op(sort(convert(V, list)));
od:
Res; # Robert Israel, May 01 2019
MATHEMATICA
Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==8&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved