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



  

相关话题

  根号素数的有限组合是否一定是无理数? 
  怎么证明关于素数的米尔斯常数A是存在的? 
  根号素数的有限组合是否一定是无理数? 
  怎么证明2³²+1不是素数? 
  如何证明f(n)=n^2+n+1,则使f(n)为质数的n的值有无数个? 
  10的100次方内的素数的中位数在什么范围内,你可以估算到多高的精度? 
  存不存在一个数,从个位开始,每往前加一个数字之后所得的数依然是素数? 
  只用高中数学知识水平能解出哥德巴赫猜想吗? 
  证明了黎曼猜想就能马上得到素数公式吗? 
  怎么证明2³²+1不是素数? 

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





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