百科问答小站 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



  

相关话题

  是否大于等于5的质数都能写成质数+质数+1? 
  10的100次方内的素数的中位数在什么范围内,你可以估算到多高的精度? 
  根号素数的有限组合是否一定是无理数? 
  两相邻素数的最大间距能够多大? 
  到底有没有素数公式?素数公式的意义有多大? 
  级数求积:是否有一般的收敛判别法?以及实例∏[p是素数] p/(p-1) 是否收敛? 
  为什么任何整数除以2或5都能除尽,而不一定能被其他质数除尽? 
  质数在生活中有什么用? 
  公民身份号码有可能是素数吗? 
  可以找到两个质数,他们的比值最接近 π 吗? 

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





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