求纯粹质数 [复制链接]

找出四位数中的纯粹质数.
所谓纯粹质数.每次去尾以后的数都是质数的数.
如5393
5393是质数
539是质数
53是质数
5是质数

楼主，539好像不是质数诶～～～～

的确，539不是质数

楼主肯定把样例记错了，那个是5939

下面是我求出的纯粹质数：
1 digital:2 3 5 7
2 digitals:23 29 31 37 53 59 71 73 79
3 digitals:233 239 293 311 313 317 373 379 593 599 719 733 739 797
4 digitals:2333 2339 2393 2399 2939 3119 3137 3733 3739 3793 3797 5939 7193 7331 7333 7393
5 digitals:23333 23339 23399 23993 29399 31193 31379 37337 37339 37397 59393 59399 71933 73331 73939
6 digitals:233993 239933 293999 373379 373393 593933 593993 719333 739391 739393 739397 739399
7 digitals:2339933 2399333 2939999 3733799 5939333 7393913 7393931 7393933

有没有程序代码，pascal的