A106099 Primes with maximal digit = 3.

3, 13, 23, 31, 103, 113, 131, 223, 233, 311, 313, 331, 1013, 1031, 1033, 1103, 1123, 1213, 1223, 1231, 1301, 1303, 1321, 2003, 2113, 2131, 2203, 2213, 2311, 2333, 3001, 3011, 3023, 3121, 3203, 3221, 3301, 3313, 3323, 3331

Offset: 1

Author

Zak Seidov, May 07 2005

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A106093, A106094, A106095, A106096, A106097, A106098, A106100.

Programs

Maple

Res:= 3: count:= 1:
A:= {3}: B:= {$1..2}:
for d from 2 while count < 100 do
  A:= {seq(seq(10*a+i,i=0..3),a=A), seq(10*b+3,b=B)}:
  B:= {seq(seq(10*b+i,i=0..2),b=B)}:
  S:= sort(convert(select(isprime,A),list));
  count:= count + nops(S);
  Res:= Res, op(S);
od:
Res; # Robert Israel, Jan 01 2019

Mathematica

Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==3&]