A106094 Primes with maximal digit = 8.

83, 181, 281, 283, 383, 487, 587, 683, 787, 811, 821, 823, 827, 853, 857, 863, 877, 881, 883, 887, 1087, 1181, 1187, 1283, 1381, 1481, 1483, 1487, 1583, 1783, 1787, 1801, 1811, 1823, 1831, 1847, 1861, 1867, 1871, 1873, 1877

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

Sequence in context: A106962 A137364 A182479 * A142443 A044415 A044796

Adjacent sequences: A106091 A106092 A106093 * A106095 A106096 A106097

Keyword

nonn,base

Author

Zak Seidov, May 07 2005

Status

approved