require"prime"
k=gets.to_i
n=gets.to_i
l=Prime.each(n).select{|i|i>=k}.map{|i|j=i;j=j.to_s.chars.inject(0){|s,c|s+c.to_i} while j>9;[i,j]}
a=[]
cnt=[0]*10
max=0
ans=0
l.each{|i,j|
  a<<[i,j]
  cnt[j]+=1
  cnt[a.shift[1]]-=1 while cnt[j]>1
  if max<=a.size
    max=a.size
    ans=a[0][0]
  end
}
p ans