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,1

Links

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

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&]

Crossrefs

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

Sequence in context: A277590 A062667 A212525 * A273312 A017305 A367296

Adjacent sequences: A106096 A106097 A106098 * A106100 A106101 A106102

Keyword

nonn,base

Author

Zak Seidov, May 07 2005

Status

approved