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



  

相关话题

  为什么n为素数时,n能整除2^n - 2,怎么证明? 
  为什么说尾数为1、3、7、9的素数个数是基本相同的? 
  威尔逊定理中 p=4是一个例外,为什么?是否存在其他非质数的例外? 
  为什么n为素数时,n能整除2^n - 2,怎么证明? 
  两相邻素数的最大间距能够多大? 
  为什么二是质数,我感觉它好委屈啊? 
  全世界的数学家能在18天内找到质数排列规律么? 
  一个四位质数,各位相加得出的和是不是仍是质数(和为偶数除外)? 
  如何证明任意比2更大的偶数都是两个素数之和? 
  质数集P与自然数集N等势吗? 

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





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