function p=f(n)
p=1;t=1;while t
p=p+1;t=~isprime(p)|sum(arrayfun(@(x)any(strfind(num2str(p),num2str(x))),primes(p)))~=n+1;end
end % line needed only in the online interpreter
f(2)
ZnVuY3Rpb24gcD1mKG4pCnA9MTt0PTE7d2hpbGUgdApwPXArMTt0PX5pc3ByaW1lKHApfHN1bShhcnJheWZ1bihAKHgpYW55KHN0cmZpbmQobnVtMnN0cihwKSxudW0yc3RyKHgpKSkscHJpbWVzKHApKSl+PW4rMTtlbmQKCmVuZCAlIGxpbmUgbmVlZGVkIG9ubHkgaW4gdGhlIG9ubGluZSBpbnRlcnByZXRlcgoKZigyKQ==