OFFSET
1,1
PROG
(PARI) is(n)=if(gcd(n, 10)>1, return(!isprime(n\10) && n>9 && isprime(n%10))); for(k=1, #Str(n)-1, if(isprime(n%10^k) && !isprime(n\10^k), return(1))); 0 \\ Charles R Greathouse IV, Sep 15 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Teofilatto, Sep 15 2015
STATUS
approved