百科问答小站 logo
百科问答小站 font logo



存不存在一个数,从个位开始,每往前加一个数字之后所得的数依然是素数? 第1页

  

user avatar   GalAster 网友的相关建议: 
      

这样的素数叫做左截断素数[1], 其中十进制中最大的是 357686312646216567629137, 十进制中一共有4256个这样的素数

                LeftTruncatablePrimes         [         1         ]                   :=                   Select         [         Range         [         9         ],                   PrimeQ         ]                            LeftTruncatablePrimes         [         n_         ]                   :=                   LeftTruncatablePrimes         [         n         ]                   =                   Block         [                             {         list                   =                   Outer         [         List         ,                   Range         [         1         ,                   9         ],                   LeftTruncatablePrimes         [         n                   -                   1         ]]},                             Select         [         #1                   *                   10         ^         (         n                   -                   1         )                   +                   #2         &                   @@@                   Flatten         [         list         ,                   1         ],                   PrimeQ         ]                            ]            

同理可以定义右截断素数, 共79个, 最大的是 73939133

                RightTruncatablePrimes         [         1         ]                   :=                   Select         [         Range         [         9         ],                   PrimeQ         ]                            RightTruncatablePrimes         [         n_         ]                   :=                   RightTruncatablePrimes         [         n         ]                   =                   Block         [                             {         list                   =                   Outer         [         List         ,                   RightTruncatablePrimes         [         n                   -                   1         ],                   {         1         ,                   3         ,                   6         ,                   7         ,                   8         ,                   9         }]},                             Select         [         10                   #1                   +                   #2         &                   @@@                   Flatten         [         list         ,                   1         ],                   PrimeQ         ]                            ]            

参考

  1. ^ http://mathworld.wolfram.com/TruncatablePrime.html



  

相关话题

  是否存在一个次数不低于 2 的整系数多项式,在任何素数处的取值都是素数? 
  两个相邻的质数之和(除了2与3)除二得到的值是合数,有数学证明吗? 
  是否存在一个次数不低于 2 的整系数多项式,在任何素数处的取值都是素数? 
  高斯素数有类似于素数定理的分布律吗? 
  下面这个关于质数的不等式如何证明? 
  如何证明存在 1000 个连续的正整数中恰好有五个素数? 
  请问是质数更多还是合数更多还是一样多? 
  请问是质数更多还是合数更多还是一样多? 
  一个四位质数,各位相加得出的和是不是仍是质数(和为偶数除外)? 
  级数求积:是否有一般的收敛判别法?以及实例∏[p是素数] p/(p-1) 是否收敛? 

前一个讨论
日本的电脑配件(如显卡、CPU)大概比国内便宜多少呢?
下一个讨论
为什么很多IDE无论写一个多么小的程序都一定要创建一个project?





© 2025-01-03 - tinynew.org. All Rights Reserved.
© 2025-01-03 - tinynew.org. 保留所有权利