login
A106099
Primes with maximal digit = 3.
7
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
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&]
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved