Checking whether the number remains prime when the last ( " right " ) digit is successively removed
while ( $ n ) { if ( $ isPrime [ $ n ] ) $ n = ( int ) ( $ n / 10 ) ; else return false ; } return true ; }