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
KEYWORD
nonn,base
AUTHOR
Zak Seidov,May 07 2005
STATUS
approved